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Son las 21 15 horas del 16 de Mayo. Un bombardero Lancaster en vuelo especial, despega de Inglaterra hacia Alemania Después de meses 
de preparación, el escuadrón 617 vuela en una operación destinada a cambiar el curso de la II Guerra Mundial. Su objetivo es destruir las 
más importantes presas alemanas para paralizar los puntos vitales de sus fábricas de armamento. 

Este detallado y auténtico simulador te permite ocupar los puestos de Piloto, Ingeniero de vuelo, Artiller o delantero y trasero, 

Bombardero y Navegante. Volarás a través del Canal de la Mancha y Europa intentando evitar a los temibles ME-1 10 alemanes, zeppe- 
Unes, focos antiaéreos y todos los demás peligros a los que se enfrentó el comando Inglés 
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Editorial 



LA TRANSICION QUE NOS 

VIENE 



Llegan las entrañables fechas de la Navidad, 
que para el sector informático representan una 
reactivación de las ventas, sea de hardware o, 
con mayor intensidad, del software de diverti- 
mento. Nos encontramos en momentos de tran- 
sición del mercado. El 87 será el momento de 
expansión del segmento PC y compatribles. La 
principal razón obedece a la brusca bajada de 
precios y la incorporación de nuevos fabricantes 
de compatibles. Tal es el caso de Amstrad, que 
con su esperado PC 1512 logrará disparar la de- 
manda por parte de los usuarios domésticos. 
Baja el listón para acceder a sistemas que hasta 



hace pocos meses estaban considerados como 
coto de los profesionales y empresas. 

En el otro extremo se sitúa el ordenador ne- 
tamente destinado a juegos. Los nuevos precios 
mas bajos, como en el caso del propio Spectrum 
+2 y los MSX, conseguirán que esta clase de 
sistemas sean ámpliamente adoptados en los ho- 
gares como un artículo de consumo mas. 

Grandes esperanzas se han puesto en el pro- 
metedor 1987. 

Por nuestro lado os deseamos Feliz Navidad a 
todos los que compartís estas páginas mes a mes 
con nosotros. 



LOS MEJORES DE INPUT 

Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones será publicado en cada número 

ponga en claro, mes a mes, cuáles son los programas preferidos de INPUT. 

de nuestros lectores. Para ello, es obligado preguntaros directamen- Entre los votantes sortearemos 10 cintas de los títulos que pidáis 

te y tener así el mejor termómetro para conocer vuestras preferen- en vuestros cupones. 

cias. Podéis votar por cualquier programa aunque no haya sido co- Nota: No es preciso que cortéis la revista, una copia hecha a 

mentado todavía en INPUT. máquina o una simple fotocopia sirven. 

Enviad vuestros votos a: LOS MEJORES DE INPUT P.° de la Castellana, 93. Planta 14. 28046 Madrid 



Primer titulo elegido L 
Tercer titulo elegido l 
Qué ordenador tienes 
1." Apellido I i i 



Fecha de nacimiento 



Dirección I i i i 
Provincia I i i i 



ELIGE TUS PROGRAMAS 



Segundo titulo elegido L 



J I L 



J I I L 



Programa que te gustaría conseguir 
Nombre I i i i i i i l 



2.° Apellido 



J I L 



Teléfono I i i 



J l L 



Localidad I i_ 



J i i i L 
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CODIGO POSTAL. 



PROVINCIA: 

ENVIO TALON BANCARIO □ - CONTRA REEMBOLSO □ 




EL BUZON DE INPUT 



Estoy escribiendo un programa 
de dibujo y al acabarlo me faltan 
las instrucciones necesarias para 
grabar una pantalla. 

Es decir, grabar un dibujo hecho 
con este programa de tal forma 
que no se grabe el programa, con 
el fin de aprovechar la pantalla grá- 
fica en algún otro tipo de listados, 
de juegos por ejemplo. Estoy ha- 
ciendo un programa de diseño grá- 
fico. 



40 POKE 62000 ! + I, 

VAL("&H"+A$) 
50 NEXT I 

60 DEF USR0=62001 ! 

70 DEF USR1=62038! 

10000 DATA 21,00,00,01,00,18, 
11 ,04,BF,CD,59,00,21 ,00 
,20,01,00,18,11,0A,D7,C 
D, 59,00,21 ,00,18,01 ,00, 
03,11,10,EF,CD,59,00,C9 

10010 DATA 21,04,BF,01,00,18, 
11 ,00,00,CD,5C,00,21 ,0A 
,D7,01,00,18,11,00,20,C 
D,5C, 00,21 ,10,EF,01 ,00, 
03,11,00,18,CD,5C,00,C9 

Puedes añadirla al principio de tu 
programa, cambiando los números 
de línea si es necesario. Después 
tendrás que introducir un par de lí- 
neas adicionales que son: 

BSAVE "CASrNombre" 
,48900,61968 



para almacenar la pantalla gráfi- 



ca 



Santiago Vilanova Piñeiro BL0AD "CAS :Nombre" 



Lugo 

Lo más probable es que estés tra- 
bajando en SCREEN 2, en la panta- 
lla de alta resolución. En este caso, 
para almacenar la pantalla gráfica 
en cassette o diskette, tienes que 
guardar los valores de los bytes de 
las tablas 10, 11 y 12 (tablas de la 
VRAM). Para ello puedes diseñarte 
una rutina en BASIC o en lenguaje 
máquina (según la velocidad que 
quieras conseguir) que transfiera 
de la VRAM al cassette, byte a byte 
las tablas completas. 

Otra posibilidad que tienes, es la 
de transferir primero las tablas a la 
memoria RAM y utilizar a continua- 
ción el comando BSA VE. Este pro- 
cedimiento es el que comentába- 
mos en el número 4 de INPUT, al 
hablar de SCREEN 2. La rutina que 
ofrecíamos es la siguiente: 

10 CLEAR 200,48899! 
20 F0R 1=1 T0 74 
30 READ A$ 



para cargar la pantalla gráfica. 

La rutina, en código máquina, es 
muy rápida. Transfiere la pantalla 
gráfica en sólo un quinto de segun- 
do. 



¡Hola! Soy suscriptor de su revis- 
ta y usuario de un SVI 738. Cuando 
intento salvar en diskette los pro- 
gramas que dáis en la revista y que 
incluyen rutinas código máquina, 
ocurre que me quedo colgado casi 
todas las veces. Una sola vez he 
conseguido grabar una rutina con 
BSAVE y direcciones de inicio y fi- 
nal, pero a continuación no puedo 
volver a cargarla en memoria y ha- 
cer un listado. Acudo al MSX-DOS 
y puedo listarlo con TYPE, pero 
aparecen las conocidas figurillas 
chinas en casi todo el programa y 
sólo algunas líneas en castellano- 
BASIC. 



¿Podríais decirme qué es lo que 
ocurre? ¿Cómo podré conservar 
esas rutinas y utilizarlas? 

Miguel Regaira Martínez 
Navarra 



Cuando incluimos rutinas en có- 
digo máquina en alguno de los lis- 
tados BASIC, lo hacemos a través 
de las sentencias DATA del propio 
listado. Es decir, las rutinas código 
máquina van incluidas en el listado 
BASIC, y para hacerlas funcionar 
no tienes más que copiar este lista- 
do y seguir las instrucciones que te 
damos en el artículo. Otra cosa 
muy distinta son los listados en len- 
guaje ensamblador de las rutinas 
código máquina. Estos listados, in- 
cluidos para aquellos interesados 
en la rutina original en lenguaje en- 
samblador, sólo pueden ser teclea- 
dos y salvados en diskette o casset- 
te a través de algunos de los pro- 
gramas ensambladores del merca- 
do. 

Probablemente habrás intentado 
introducir estos listados desde el 
BASIC y de ahí vienen todos tus 
problemas. Lo que tienes que ha- 
cer es conseguir un buen ensam- 
blador si tienes intención de traba- 
jar directamente con rutinas código 
máquina. 

Otra posibilidad que te queda 
abierta para salvar las rutinas en- 
samblador con BSAVE es la de uti- 
lizar los programas BASIC para car- 
garlas en memoria. Una vez carga- 
das y conociendo las direcciones 
inicial y final puedes utilizar BSAVE 
sin ningún problema. 

Lo que nos comentas de TYPE, 
desde el MSX-DOS, es totalmente 
normal teniendo en cuenta que in- 
tentas listar por pantalla un listado 
fí/AS/Ctokenizado. Para poder listar 
un programa BASIC con este co- 
mando, tienes que haberlo salvado 
previamente como fichero ASCII, 
empleando la sintaxis: SAVE 
«Nombre»,A. 
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EL BUZON DE INPUT 



Hola amigos, desde hace bastan- 
te tiempo estoy interesado con el 
temporizador incorporado en mi 
Sony MSX, hacer un programa con 
el cual visualizar en la pantalla un 
reloj en el que aparezcan las horas, 
los minutos y los segundos. Hasta 
ahora no lo he conseguido y por 
eso os escribo, para saber si esto 
es posible. Si lo es, me gustaría que 
publicarais dicho programa. 

Otra duda que tengo es la forma 
de escribir con dos o más colores a 
la vez. 

Víctor José Ganan Balza 
Tenerife 

Suponemos que tienes un MSX 
de la primera generación y que el 
temporizador al que te refieres es 
el que puede leerse a través de la 
variable TIME. Para realizar el pro- 
grama que nos comentas, que por 
supuesto se puede realizar, tienes 
que tener en cuenta que esta varia- 
ble se incrementa en uno cada cin- 
cuentavo de segundo (es decir se 
actualiza 50 veces cada segundo). 
Puedes modificar su valor en cual- 
quier momento sin más que escri- 
bir TIME= nuevo valor. Por último 
tienes que tener en cuenta que al- 
canza un valor máximo de 65535 
después del cual vuelve a cero y co- 
mienza de nuevo la cuenta. 

Si quieres trabajar en código má- 
quina, te diremos que las direccio- 
nes de memoria que corresponden 
al reloj son la FC9EH y la FC9FH. 

La rutina que sigue te presenta 
en pantalla el valor de esta variable 
en segundos y minutos. Los segun- 
dos se obtienen dividiendo el valor 
de TIME entre 50 y los minutos di- 
vidiendo este valor entre 60. Para 
pasar a horas, tendrás que actuali- 
zar una variable cada vez que se 
cumplan 60 minutos. Esperamos 
que con estas ideas y la rutina que 
te ofrecemos, seas tu mismo capaz 
de desarrollar el programa que ne- 
cesitas. 

10 CLS:TIME=0 

20 T=TIME 

30 SE=(T/50)M0D60 



40 MI=INT(T/3000) 

50 L0CATE0,0 

60 PRINT USING"##";MI; 

:PRINT":" 
70 LOCATE4,0 
80 PRINT USING"##";SE 
90 GOTO 20 

En cuanto al escribir con dos o 
más colores a la vez, vas a tener 
que trabajar en un modo de panta- 
lla que no sea SCREEN 0. Por ejem- 
plo en SCREEN 2 o en SCREEN 1. 
Consulta algún buen manual del 
BASIC MSX. 

&¿2 



Me gustaría saber si se pueden 
enviar programas en código má- 
quina presentando solamente las 
líneas DATA del cargador BASIC, o 
si hace falta un listado ensambla- 
dor. 

Alberto Alvarez Besada 
Pontevedra 

A ser posible conviene que en- 
víes las dos cosas. El cargador BA- 
SIC, con los valores de la rutina en 
sentencias DATA, es para que 
aquellos que no dispongan de un 
programa ensamblador puedan 
disfrutar de la misma. Por otro 
lado, el listado ensamblador será 
una gran ayuda para todos los que 
quieran analizar la rutina y enten- 
der su funcionamiento. 



Quisiera saber si se ha publicado 
algún libro con la ROM de los orde- 
nadores de la norma MSX desen- 
samblada, pues se que existe para 
otros ordenadores. Os agradezco 
por adelantado la respuesta. 

Juan Manuel Marsa Fauste 
Barcelona 



Según nuestras noticias, no se ha 
publicado en nuestro país ningún 
libro de las características que nos 
comentas. Sabemos que se puede 
encontrar alguna copia del libro del 



«Estándar MSX» de Microsoft, en 
el que se dan algunas pistas sobre 
las rutinas de ROM. Este libro está 
en inglés. Asimismo, y publicado 
en Inglaterra por Avalon Software, 
hay un libro titulado «MSXred 
bookw (el libro rojo de MSX) en el 
que se incluye una información 
muy detallada de las distintas ruti- 
nas, variables, etc. de la ROM. Des- 
graciadamente no parece que na- 
die se haya decidido a importar o a 
publicar la traducción de este inte- 
resante libro. 



Hola. Me gustaría saber si los fa- 
bricantes han lanzado al mercado 
alguna versión del lenguaje COBOL 
para MSX. Me interesaría cualquier 
información. 

Violeta Lopen Sanz 
Madrid 

La empresa Spectravideo España 

comercializa una versión de len- 
guaje COBOL para MSX. Se trata de 
un compilador de este lenguaje de 
la firma estadounidense Ellis Com- 
puting y lleva el nombre de Neva- 
da COBOL. Es una versión de exce- 
lente calidad y corre bajo el siste- 
ma operativo MSX-DOS (es decir 
necesita del empleo de al menos 
una unidad de diskettesA Te reco- 
mendamos que entres en contacto 
con Spectravideo. Ellos te aclara- 
rán cualquier duda sobre su pro- 
ducto. 



Si se te haee difícil 
encontrar IJ\PLT 
en tu kiosco habitual, 
reséñalo por adelantado, 
o háznoslo saber 
para que podamos remediarlo 
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Si quieres ver jpF tus programas, 



o artículos, 



tu revista, 



bases y haznos llegar 






publicados en 



examina 





el material. 



Publicar tiene su recompensad 





PROGRAMAS: Una vez desarrollado tu programa, 
que debe ser original y no haber sido enviado a ninguna 
otra publicación, puedes enviárnoslo aquí grabado en 
cassette, diskette o microdrive. Es preferible que vaya 
acompañado por un listado de impresora, pero no es 
imprescindible. 

El programa habrá de venir acompañado por un texto 
que aclare cuál es su objetivo, el modo de funciona- 
miento y una explicación del cometido que cumplen las 
distintas rutinas que lo componen. El texto se presenta- 
rá en papel de tamaño folio y mecanografiado a dos 
espacios. No importa que la redacción no sea muy clara 
y cuidada; nuestro equipo de expertos se encargará de 
proporcionarle la forma más atractiva posible. 
ARTICULOS E IDEAS: Se aplica lo anteriormente 
dicho para los textos que acompañan a los programas; 
es decir, conviene detallar al máximo lo que desees que 
aparezca publicado en la revista, de la manera que te 
gustaría que otra persona hubiera explicado eso mismo. 
UN JURADO propio decidirá en cada momento qué 
colaboraciones reúnen los requisitos adecuados para su 
publicación, y evaluará la cuantía del premio en metáli- 
co al que se hagan acreedoras. 

No olvidéis indicar claramente para qué ordenador está 



preparado el material, así como vuestro nombre y 
dirección y, cuando sea posible, un teléfono de contac- 
to. Entre todos los trabajos recibidos durante cada mes 
SORTEAREMOS: 

• Un premio de 50.000 ptas. 

• Un premio de 25.000 ptas. 

• Un premio de 10.000 ptas. 

en materia) microinformático a elegir por 
los afortunados. 

¡No os desaniméis!, por muy simples o complejas que 
puedan parecer vuestras ideas, todas serán revisadas 
con el máximo interés. 



INPUT MSX 

Paseo de la Castellana, 93. Planta 14 
28046 MADRID 



NOTA: INPUT no se responsabiliza de la devolución del 
material que no vaya acompañado por un sobre adecuado con 
el franqueo correspondiente. 
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******* 4* 



Wpo. 



era el 



de 



«te 




CSAM 




J °^dáT^ ente ^nce te ,„. 



EN TIENDAS ESPECIALIZADAS Y GRANDES ALMACENES, DIRECTAMENTE POR CORREO TELEFONO A: PROEIN, SA 

Distribuido en Cataluña por: DISCOVERY INFORMATIC CA Arco Iris. 75 - BARCELONA - Tels. 256 49 08 / 09 Velázquez, 10 - 28001 Madrid - Tels. (91 ) 276 22 08/09 



Aplicaciones 



TIENES 
UNA CITA 



■ 


CALENDARIO ANUAL 


■ 


DIA DEL ANO Y DE LA 


SEMANA 


■ 


SIGNOS DEL ZODIACO 


■ 


DIAS ENTRE FECHAS 



¿No serás una de esas personas que 
siempre se olvida del cumpleaños de su 
madre, o que recuerda que tiene una 
cita con el dentista dos días después de 
la fecha en que debiera haber ido? ¿Si? 
Pues toma nota de este programa. 

Una maniobra que todos nosotros 
hacemos con cierta frecuencia es con- 
sultar un calendario. Seguramente te- 
nemos uno pegado en la pared, o so- 
bre la mesa, o en la agenda. 

Lo normal es disponer del calenda- 
rio correspondiente al año en curso, 
aunque algunas veces, sobre todo en 
las agendas, suele venir también el 
año anterior e incluso el siguiente. En 
algunos calendarios aparece informa- 
ción complementaria sobre el número 
de orden de cada día dentro del año, 
santoral, períodos astrales, etc. 

El problema aparece cuando nece- 
sitamos consultar calendarios antigüos 
o de años venideros. Lo normal es que 
no dispongamos de ellos. 

Esto tendría solución si pudiéramos 
imprimir un calendario adaptado a 
nuestras necesidades específicas en el 
que figurase, además del calendan con 
el mes deseado, información comple- 
mentaria tal como fiestas locales o 
particulares, fechas en que realizar 
ciertos trabajos, vencimientos de pa- 
gos, etc. 

Las consultas a los calendarios se 
hacen para hallar respuesta a pregun- 
tas como las siguientes: 

- ¿En qué día de la semana comen- 
zó la Guerra Civil Española (18 de Ju- 
lio de 1936)? 

- ¿Cuántos días hemos estado vi- 
viendo en Roma (12/3/1985 - 
1/8/1986)? 

- ¿Qué fecha corresponde a 1318 
días a partir de 4 de Mayo de 1725? 

- ¿Bajo qué signo del Zodíaco he- 
mos nacido? 

En teoría la respuesta no requiere 
de conocimientos especiales. Basta 



disponer de abundantes calendarios, 
papel, lápiz y una calculadora (en úl- 
timo caso podemos contar con los de- 
dos). En la práctica las cosas quizá se 
nos compliquen un poco, sobre todo 
si tenemos que manejar fechas muy 
distantes. 

Como en otras muchas facetas de la 
vida, el ordenador puede prestarnos 
una excelente ayuda. En este sentido 
hemos preparado el programa «Mane- 
jo del Calendario» cuyo contenido pa- 
samos a comentar. Como anexo figu- 
ra el correspondiente listado. 

Dedicamos también un cierto espa- 
cio a aquellos «viciosos de la progra- 
mación» que desean conocer el por 
qué de las cosas. No les será difícil mo- 
dificar el programa y enriquecerlo con 
temas de su propia cosecha. 

MANEJO DEL PROGRAMA 

Lo primero que aparece es un menú 
con cinco opciones: 



***************************** 

* * 

* OPCIONES * 

* ======== * 

* * 

* 1 . CALENDARIO * 

* 2. DIA DEL A#0/ SEMANA * 

* 3. SIGNO DEL ZODIACO * 

* 4. NUEVA FECHA * 

* 5. INTERVALO ENTRE FECHAS * 

* * 

* * 
***************************** 

Opción 1: 

El ordenador nos presenta una pan- 
talla base y nos va solicitando sucesi- 
vamente los datos del Año y Mes, así 
como los días que queremos fijar 
como festivos (hasta cinco fechas por 
mes) y el texto (hasta 40 caracteres) 
que deseamos reflejar al pie del calen- 
dario. El aspecto de la pantalla será 
como el siguiente: 

CALENDARIO 



A#0 
MES 




:1986 

: DICIEMBRE 
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OBSER. : PLANIFICAR MANTENI- 
MIENTOS PRIMER TRIMESTRE 1987 

MODIFICAR (S/N)? 

En este punto podremos rectificar 
cualquier dato. Al final nos aparecerá: 

DICIEMBRE 1986 



D 


L 


M 


X 


J 


V 


S 




1 : 


2 : 


3 : 


4 : 


5 : 


6 : 


: 7 : 


8 : 


9 : 


10: 


11 : 


12: 


13: 


: 14: 


15: 


16: 


17: 


18: 


19: 


20: 


: 21: 


22: 


23: 


24: 


25: 


26: 


27: 


: 28: 


29: 


30: 


31: 


■ 







FIESTAS : 8 25 

OBSERV. : PREPARA MANTENI 

MIENTO PRIMER TRIMESTRE 

1987 

IMPRIMIR (S/N)? 

Si todo aparece conforme a nues- 
tros deseos podemos proceder a su im- 
presión. La copia de la impresora es 
un fiel reflejo de lo que aparece en 
pantalla y por lo tanto debe utilizarse 
una que siga el estándar MSX, ya que 
la retícula del calendario está realiza- 
da con los signos gráficos MSX ade- 
cuados para que el trazado sea conti- 
nuo. Si disponemos de otro tipo de im- 
presora deberá modificarse el progra- 
ma para utilizar otros símbolos (por 





ejemplo los que aparecen en la pre- CAPRICORNIO 

sentación anterior). =========== 

Opción 2: 

Se nos facilita la fecha deseada y el Es el signo del zodiaco que 

ordenador nos calcula y presenta los corresponde a Los nacidos 

resultados de la manera siguiente: entre Las fechas: 



FECHA : 30 / 10 / 1986 

MES :0CTUBRE 
DIA DEL A#0 :303 
DIA DE LA SEMANA :JUEVES 
SIGNO DEL Z0DIAC0:ESC0RPI0 

Opción 3: 

Mediante esta opción podemos co- 
nocer las fechas que cubren el perío- 
do asignado a cada uno de los símbo- 
los. Una vez tecleado el nombre co- 
rrespondiente (bastan las tres prime- 
ras letras) aparece en pantalla la si- 
guiente información: 



22 DE DICIEMBRE 
20 DE ENERO 

Opción 4: 

Dada una fecha cualquiera el pro- 
grama nos calcula otra que esté sepa- 
rada de ella una serie de días predefi- 
nidos. De la nueva fecha también apa- 
recen los mismos datos de la Opción 2. 

Opción 5: 

Se trata de la recíproca de la Op- 
ción anterior. En este caso el progra- 
ma nos solicita dos fechas cualesquie- 
ra y nos calcula el número de días que 
las separan. Debido al procedimiento 



INPUT 1 1 



Aplicaciones 




de cálculo utilizado, el margen de fe- 
chas en el que nos podemos mover es: 
15 de Octubre de 1582 al 25 de No- 
viembre del 4046. Entendemos que se 
trata de un margen suficientemente 
amplio. 

ASPECTOS MAS IMPORTANTES 
DEL PROGRAMA 

Días de la semana: 

Como referencia, comenzamos las 
semanas por Domingo y le identifica- 
remos por día «0». Los nombres de los 
diversos días los alojamos en la matriz 
D$() mediante una lectura de los DA- 
TAs correspondientes (instrucciones 
60.70 y 80). 

Meses del año: 

El proceso es análogo pero utilizan- 
do la matriz M$() (instrucciones 
90,100 y 110). 

Ambas operaciones se realizan una 
sola vez, la primera vez que se rueda 
el programa. 

Períodos del Zodíaco: 

Para cada período se confeccionan 



tres tipos de datos que se alojan en los 
DAT As correspondiente (930-1040). 
El primer dato es el número formado 
por el valor del mes multiplicado por 
100 más el valor del día, ambos refe- 
ridos a la fecha baja del período. El 
segundo dato es análogo pero para la 
fecha alta. El tercero es el nombre 
asignado al símbolo. 

A la hora de localizar las fechas de 
un Signo del Zodíaco hemos optado 
por dar una pasada (340-390) a este 
grupo de DATAs hasta encontrar el 
nombre buscado (por comodidad sólo 
contrastamos las tres primeras letras y 
el nombre lo debemos fijar con letras 
mayúsculas). Los DATAs asociados a 
este nombre nos permitirán recons- 
truir las fechas. Ej: 

Dato 1 = 823, Dato 2 = 923, Dato 
3 = «VIRGO» 

Dividiendo por 100 y tomando la 
parte entera conoceremos el número 
de los meses, y por diferencia el de los 
días. En este caso 8 y 23, 9 y 23. M$(8) 
y M$(9) nos darán respectivamente 
Agosto y Septiembre. 

Calendario Perpetuo: 



El plato fuerte del programa está in- 
dudablemente en la rutina para el cál- 
culo de los datos del «calendario per- 
petuo» (MANEJO DE FECHAS). 
No vamos a entrar en los tecnicismos 
matemáticos en los que está basado el 
procedimiento de cálculo, simplemen- 
te sabemos que partiendo de una fe- 
cha determinada (D,M,A) obtenemos 
el valor del «día juliano» (J) corres- 
pondiente, el cual nos sirve como re- 
ferencia absoluta. 

Por diferencia con el día juliano del 
primer día del año en curso (JO) po- 
demos saber el número de orden de 
nuestra fecha dentro del año (DA). 
Evidentemente el procedimiento tiene 
en cuenta automáticamente los años 
bisiestos. 

Mediante otro sencillo cálculo co- 
noceremos el orden dentro de la se- 
mana de la fecha que estamos anali- 
zando (DS). El corresponde al do- 
mingo y así sucesivamente hasta el 6 
para el sábado. Acudiendo a la matriz 
D$() podremos conocer el nombre 
asignado a dicho día (D$). 

Como final de la rutina, y partien- 
do de los valores del mes y del día, 
averiguaremos a que signo del Zodía- 
co corresponde con ayuda de una sen- 
tencia «IF». 

Más adelante en el programa existe 
otra rutina para hacer justo la manio- 
bra opuesta. Partiendo de un valor de 
día juliano averiguar a que fecha (D, 
M y A) le corresponde. 

Con estas breves pinceladas sobre el 
programa entendemos les bastará a 
nuestros lectores para seguir el deta- 
lle de cada uno de los pasos. 

10 'CALENDARIO 

20 'INPUT MSX 

30 'M0LIS0FT 0CT.86 

40 CLEAR 500:SCREEN 0:WIDTH 

32 :KEY 0FF 
50 LOCATE 7,2:PRINT"I N P U T 

M S X" 

60 LOCATE 7,3:PRINT"========= 



70 LOCATE 10,5:PRINT"M A N E 
J ":L0CATE 14,8:PRINT 
"DE": LOCATE 11 ,11 : PRINT 
" FECHAS" 

80 LOCATE 8 ,15:PRINT 
"Molisoft Nov.86" 
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90 FOR 1=1 T0 2000:NEXT I 
100 DIM CL$(42):REM DISTRIBUC 

ION DE DIAS EN EL MES 
110 DIM F$(5) : REM DIAS 

FESTIVOS 
120 DIM DS$(6):REM DIAS DE LA 

SEMANA 

130 DATA DOMINGO, LUNES, MARTES 
, MIERCOLES, JUEVES, VIERNES 
, SABADO 

140 FOR L=0 TO 6 : READ X$:DS$ 

CL)=X$:NEXT L 
150 DIM M$(12):REM MESES DEL 

A#0 

160 DATA ENERO, FEBRERO, MARZO, 
ABR IL, MAYO, J UNIO, JULIO, AG 
OSTO, SEPTIEMBRE, OCTUBRE, N 
OVIEMBRE, DICIEMBRE 

170 FOR L=1 TO 1 2 : READ X$:M$ 
(L)=X$:NEXT L 

180 GOSUB 1170:REM ORLA MENU 

190 LOCATE 9 ,2:PRINT"0 P C I 

O N E S" 

200 LOCATE 9 ,3 : PRINT"======= 

n 

210 LOCATE 5,6:PRINT "1 . CAL 

ENDARIO" 
220 LOCATE 5,8:PRINT"2. DIA 

DEL A#0 / SEMANA" 
230 LOCATE 5 ,1 : PRINT"3 . SIG 

NO ZODIACO" 
240 LOCATE 5,1 2 : PRINT"4 . NUE 

VA FECHA" 
250 LOCATE 5 ,1 4 : PRINT"5 . INT 

ERVALO ENTRE FECHAS" 
260 P$= INKEYS: I F P$="" 

THEN 260 ELSE P=VAL(P$) 
270 IF P<1 OR P>5 THEN 260 
280 ON P GOTO 600,290,380,490 

,560 

290 REM OPCION 2 

300 GOSUB 1590:CLS 

310 GOSUB 1210:PRINT"FECHA : 

";D;"/";M;"/";A:PRINT 

320 PRINT "MES : 

";M$:PRINT 
330 PRINT "DIA DEL A#0 : 

"; D A : PR INT 
340 PRINT "DIA DE LA SEMANA.: 

";DS$:PRINT 
350 PRINT"SIGNO ZODIACO : 

";H$ 

360 GOSUB 1160:PRINT "CUALQUI 

ER TECLA PARA MENU" 
370 IF INKEY$="" THEN 370 



ELSE 180 480 
380 REM OPCION 3 490 
390 GOSUB 1160:INPUT "SIGNO D 500 

EL ZODIACO (Letr.may.) "; 

P$ 

400 RESTORE 1470 

410 X=0:FOR L=1 TC 12 : READ X 510 
1,X2,X$:IF LEFT$(X$,3)=LE 
FT$(P$,3) THEN X=1 :L=12 

420 NEXT L 

430 IF X=0 THEN 180 520 
440 F1=INT(X1/100):F3=INT(X2/ 530 
100) 

450 F2=X1-F1*100: 540 
F4=X2-F3*100 550 

460 CLS : PRINT TAB(3) X$: PRINT 560 
TAB(3) STRING$(LEN(X$),"= 
") :PRINT:PRINT " Es eL 570 
Signo del ZODIACO que":P 
RINT " corresponde a 580 
Los nacidos":PRINT" en 
tre Las fechas :":PRINT:P 
RINT TAB(6)F2;" DE ";M$(F 
1 ) :PRINT:PRINT TAB(6)F4;" 
DE ";M$(F3) 

470 GOTO 360 590 



REM OPCION 4 
GOSUB 1590 

GOSUB 1160:INPUT"( A CUAN 
TOS DIAS DE LA FECHA A 
NTERIOR ";N:IF N<1 THEN 5 
00 

CLS:PRINT"A";N;" DIA(S) D 
E"; D; "/ "; M; "/ "; A : PR INT : PR 
INT "TENEMOS LA SIGUIEN 
TE ":PRINT 

GOSUB 1210.-G0SUB 1690 
IF J>1478160! THEN GOSUB 
1850:GOTO 180 
GOTO 310 

'INTERVALO ENTRE FECHAS 
GOSUB 1590.-G0SUB 1210:R1 = 
D:R2=M:R3=A:R4=J 
GOSUB 1590:G0SUB 1210:Q1= 
D:Q2=M:Q3=A:Q4=J 
CLS:PRINT " EL INTERVALO 
ENTRE LAS FECHAS :":PRINT 
: PRINT R1;"/";R2;"/";R3:P 
RINT : PRINT Q1 ; "/ Q2; "/ " 
;Q3:PRINT:PRINT " ES DE " 
;Q4-R4;" DIAS" 
GOTO 360 
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600 REM OPCION 1 EXT I 

610 GOSUB 1170 840 GOSUB 1760 1080 

620 LOCATE 1 1 ,2 : PRINT"CALENDA 850 FOR I=DW TO DW+UD-1 : CL$( I 

RIO " )=STR$ (N+1 ) :N=N+1 :NEXT I 1090 

630 LOCATE 1 1 ,3 : PRINT"======= 1100 

=== " 860 CLS:L=INT(15-(LEN(M$(M-1 ) 

640 LOCATE 5,5:PRINT "A#0 )+5)/2) :PRINT TAB(L) M$(M 111Q 

:" -1);A:PRINT :PRINT 

650 LOCATE 5 ,7 : PRINT"MES 870 PRINT " D L M X 1120 

:" J V S" 

660 LOCATE 5,9 : PRINT"FIESTAS 880 PRINT " 1130 

. ii 

670 LOCATE 5,11 :PRINT"OBSERV. 890 FOR 1=0 TO 35 STEP 7 

900 PRINT TAB(0)": M +CL$(I)TAB 1140 
680 FOR 1=1 TO 4:F$(I)="":NEX (4) ": "+CL$( 1+1 ) TAB(8) ": "+ 

- j CL$( 1+2) TABC12) : M +CL$( 1+ 1150 

690 GOSUB 1160:INPUT"A%0 (158 3) TAB(16) ": "+CL$( 1+4) TAB( 

2/4046)";A:IF A<1582 OR A 20) " : "CL$( 1+5) TAB(24) " : "+ 

>4046 THEN 690 CL$( 1+6) T ABC 28) ": " 1160 

700 LOCATE 14,5:PRINT STRINGS 910 IF CL$(I+7)="" THEN 1=35 

(14," "):LOCATE 14,5:PRIN ^ ^OTO 930 

710 GOSUB 1160:INPUT"MES (1-1 """""" " 

2)";M:IF M<1 OR M>12 THEN ViU NEXT * 1170 
?1 g 940 PRINT" 1180 

720 LOCATE 14,7:PRINT STRINGS ncn """""" " ;™ * NT _ 

(14 " ") -LOCATE 14 7-PRIN 950 PR™TTAB(2) "D. Fest . :"; 1190 
(14, ). LOCATE I^.PRIN ^ _ qr ^ JQ 5 . pRINT p$(I); 

730 FOR 1=1 TO 5 :NEXT 1 1200 

740 GOSUB 1160:D=0:PRINT "("; 970 L=LENCOS> = IF CL>1 55 THEN 

STRSCI);" ) ";:INPUT "DIA S$=LEFT$ 0$,1 5) :T$=RIGHT$ 1210 

llSo^ :IFD=OTHEN 9 *° IP CL^) THEN S$=0$:T$= gj 

750 Se^S^ScwT 1 740 E "o p R int:print:printtab(2)"o 1240 

760 LOCATE 14,9:PRINT STRINGS bserv.: "; S$: PRINTTAB(2) 

(14," "):LOCATE 14,9 T 1250 

770 por to sprint Pscu; ^ P ™%"™™Z «£ 

780 NEXT I >,,S " THEN 180 1260 

yon rfKHR 1 160- TNPllT"ORSFRVAf 1 01 ' IMPRESION CALENDARIO 

790 ones(n1x°4oo ^írí^^^rír^^ 

? ; Ilprint 1270 

800 LOCATE 1 5 ,1 1 : PRINT SPACES l'' "' ! , ¿ y 1280 
(15):L0CATE 15,11 :IF LEN( j w s" 1290 
0$)<=15 THEN PRINT 0$ ELS in , n , PRTMT „ 1300 
E PRINT LEFT$(0$,15) 1040 ™ . 1310 

810 LOCATE 5,13:PRINT SPACE$( 1050 FQR I=Q T0 35 STEp ? 1320 
25):LOCATE 5,13: IF LEN(0$ 106Q LPRINT TAB(O) " : "+CL$( I) T 
»15 THEN PRINT RIGHT$(0$ AB(4) " : "+CL$( 1+1 ) TAB(8) " 1 330 

,LEN(0$)-15) :"+CL$(I+2)TAB(12)":"+CL 

820 GOSUB 1160:INPUT"M0DIFICA $( 1+3) TAB(16) ": "+CL$( 1+4 1 340 

R S/N";P$:IF P$="S" OR P$ )TAB(20) ": "CL$( 1+5) TAB(2 

="s" THEN 690 4) " : "+CL$( 1+6) TAB(28) " : " 1350 

830 FOR 1=0 TO 42 : CL$( I)="":N 1070 IF CL$(I+7)="" THEN 1=35 



:GOTO 1090 

LPRINT " 

__________ 11 

NEXT I 

LPRINT" 

" ; LPRINT 

LPRINT TAB(2) 
"D.Fest. :"; 

FOR 1=1 TO 5 -.LPRINT F$(I 
);:NEXT I 

L=LEN(0$):IF (L>15) THEN 
S$=LEFT$(0$,15) : T$=RIGHT 
$(0$,L-15) 

IF (L<=15) THEN S$=0$:T$ 
un 

LPRINT: LPRINT: LPRINT TAB 
(2)"0bserv.: ";S$:LPRIN 
T TAB(2)T$:G0T0 180 
LOCATE 0,19:PRINT SPACES 
(32):L0CATE 0,20:PRINT S 
PACE$(32) :LOCATE 0,21 :PR 
INT SPACE$(32) :LOCATE O, 
1 9 : RETURN 
REM ORLA MENU 
CLS:LOCATE 3,0:PRINT STR 
ING$(28,"*") 

FOR 1=1 TO 15:PRINT TAB( 
3)"*" TAB(30)"*":NEXT I 
LOCATE 3,16:PRINT STRING 
$(28,"*") : RETURN 
'MANEJO DE FECHAS 
A0=A-1 :M0=14 

A1=(M>2)*(-A)+(M<=2)*(-A 
+1) 

M1=(M>2)*(-M-1)+(M<=2)*( 
-M-13) 

J=INT(365.25*A1)-INT(A1/ 

100)+INT(Al/400)+INT(30. 

6001*M1)+D-478164! 

J0=INT(365.25*A0)-INT(A0 

/100)+INT(A0/400)+INT(30 

.6001*M0)+1-478164! 

DS=J-7*INT(J/7) 

DS$=DS$(DS) 

DA=J-J0+1 

M$=M$(M) 

F=M*100+D 

IF F>=321 AND F<=420 THE 
N H$="ARIES":GOTO 1450 
IF F>=421 AND F<=521 THE 
N H$="TAURO":GOTO 1450 
IF F>=522 AND F<=621 THE 
N H$="GEMINIS":GOTO 1450 
IF F>=622 AND F<=722 THE 
N H$="CANCER":GOTO 1450 
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1360 
1370 
1380 
1390 

1400 

1410 

1420 

1430 

1440 

1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 

1550 

1560 

1570 
1580 
1590 
1600 

1610 



1620 
1630 
1640 



1650 
1660 



IF F>=723 AND F<=822 THE 
N H$= M LE0":G0T0 1450 
IF F>=823 AND F<=923 THE 
N H$="VIRG0 M :G0T0 1450 
IF F>=824 AND F<=1023 TH 
EN H$="LIBRA":G0T0 1450 
IF F>=1024 AND F<=1122 T 
HEN H$="ESC0RPI0":G0T0 1 
450 

IF F>=1123 AND F<=1221 T 
HEN H$="SAGITARI0":G0T0 
1450 

IF F>=1222 AND F<=1231 T 
HEN H$="CAPRIC0RNI0": 

GOTO 1450 
IF F>=101 AND F<=120 THE 
N H$="CAPRICORNIO":GOTO 
1450 

IF F>=121 AND F<=220 THE 
N H$="ACUARIO":GOTO 1450 

IF F>=221 AND F<=320 THE 
N H$="PISCIS":GOTO 1450 
RETURN 

' SIGNO ZODIACO 
DATA 321 ,420, "ARIES" 
DATA 421 ,521, "TAURO" 
DATA 522,621, "GEMINIS" 
DATA 622,722, "CANCER" 
DATA 723, 822, "LEO" 
DATA 823, 923, "VIRGO" 
DATA 824, 1023, "LIBRA" 
DATA 1024 ,1122, 
"ESCORPIO" 
DATA 1123,1221, 
"SAGITARIO" 
DATA 1222,120, 
"CAPRICORNIO" 
DATA 121,220 , "ACUARIO" 
DATA 221 ,320, "PISCIS" 
REM TOMA DE FECHAS 
GOSUB 1160:INPUT"(A%0 (1 
582-4046)"; A: IF A<1582 O 
R A>4046 THEN 1600 
GOSUB 1160:INPUT"(MES (1 
-12)";M:IF M<1 OR M>12 

THEN 1610 
MS=M: AN=A 




1680 
1690 
1700 

1710 



1720 

1730 

1740 

1750 
1760 



GOSUB 1760 
GOSUB 1160 
:IF D<1 OR 
O 

M=MS : A=AN 
IF D>UD THEN 
:GOTO 1590 



1770 
1780 
1790 

GOSUB 1800 1800 



INPUT"(DIA";D 
D>31 THEN 164 



1670 F= 



F= A*10000+M*100+D:IF F< 
15821015# OR F>40461125# 
THEN GOSUB 1800:G0T0 15 
90 

RETURN 

J=J+478164!+N 

A1 #=INT((J-121 .5)/365.24 

25#) 

M1 #=INT((J-INT(365.25*A1 
)+INT(A1/100)-INT(A1/400 
))/30.6001) 

D=J-INT(365.25*A1)+INT(A 
1/100)-INT(A1/400)-INT(3 
0.6001 *M1 ) 

M=(MK14)*(1-M1) + (M1 >=14 
)*(13-M1) 

A=(M>2)*(-A1) + (M<3)*(-1- 
A1 ) 

RETURN 

REM NUMERO MAX DIAS DEL 
MES 

D=1 .-GOSUB 1210: 
Y=J :DW=DS 

IF (M<12) THEN M=M+1 ELS 
E M=1 :A=A+1 

GOSUB 1210:UD=J-Y:N=0:RE 
TURN 

REM AVISO DE DATO 
ERRONEO 



1810 FOR 1=1 TO 10 

1820 LOCATE 0,21:PRINT "FECHA 

: ";D;"/";M;"/";A;" ERRO 

NEA" 

1830 FOR L=1 TO 200:NEXT L 
1840 NEXT I: RETURN 
1850 REM AVISO DE DATO 

ERRONEO 
1860 CLS : FOR 1=1 TO 10 
1870 LOCATE 0,21:PRINT "DEMAS 

IADOS DIAS" 
1880 FOR L=1 TO 200: NEXT L 
1890 NEXT I: RETURN 
1900 STOP 

9000 SAVE "A: CALEND .BAS" 



NO OLVIDES EL 
TELEFONO... S 

Cuando, por cualquier moti- 
vo, nos escribas, no olvides in- 
dicar tu número de teléfono. Así 
nos será más fácil y rápido po- 
nernos en contacto contigo. 
Gracias. 
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^Kipleando algunos conceptos de inteligencia artificial, el programa PARMSX es 
un conjunto de instrucciones BASIC aparentemente capaces de mantener una 
conversación. La clave está en un acertado manejo de las 
instrucciones de tratamiento de cadenas. 
El programa utiliza una matriz de 81 palabras clave, que puede reconocer si 
aparecen en alguna de las frases que tecleemos. Al reconocer la palabra clave, 

el programa selecciona de forma aleatoria una respuesta, de cinco posibles. 
Hay dos tipos de respuestas. El primero, que el autor denomina "respuestas de 
repetición" procesan la frase tecleada e incluyen parte de la misma en la frase 
respuesta. Por ejemplo a "ESTOY MUY CANSADO", el programa puede responder con 

"SIENTO QUE ESTES CANSADO". 
El otro tipo son respuestas completas, que no toman prestada ninguna de las 
palabras introducidas. Cuando el programa no encuentra palabras clave en las 
frases que analiza, sale del trance mediante "frases de continuidad" del tipo 

"PUEDES EXPLICARME ESO DE OTRA FORMA". 
Se trata de un listado largo, y teclearlo puede resultar tedioso, pero el 
resultado compensa con creces el esfuerzo realizado. La estructura del programa 
es sencilla de entender y resultara fácil modificarla adaptándola a los gustos 
particulares de cada uno. Por ejemplo, resula sencillo hacer una versión que 
hable de fútbol, de mósica o de cualquier otro tema concreto. 
Hay un par de frases interesantes que os gustará probar; 

APAGATE y TE APAGO. 



10 1 MANUEL BALAGUER REL 
20 ' 

30 1 "PARMSX" 
40 1 17066 Bytes 

50 ' 

60 1 INICIACION 
70 ' 

80 CLEAR : SCREEN :KEY0FF : F0RT=1 T01 :KEYT,"":NEXTT: COLOR 15,5:ON ERROR GOT02210 

90 0N STOP G0SUB 2200:ST0P 0N 

100 PRINT"(CUAL ES TU NOMBRE"; : INPUT N$ 

110 PRINT:PRINT"(P0R QUE QUIERES HABLAR CONMIGO ":PRINT" "+N$+"?" : STOP 0FF 

120 STOP 0N:G0SUB 250 

130 PRINT:BEEP 

140 PRINT:0N ERROR GOTO 2210 

150 LINE INPUT C$ 

155 IF C$<"A" 0R C$>"Z" THEN PRINT: PRINT"P0R FAVOR, NO TE ENTIENDO MUY BIEN. E 

SCRIBE EN LETRAS MAYUSCULAS . ":G0T01 20 
160 A$=" "+C$ 
170 PRINT 

180 L=LEN(A$):IF L<7 THEN G0SUB 720 
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190 IF A$=" TE APAG0"THEN G=RND (-TIME) *20 : I F G>10 THEN PRINT"ME APAGARE SI QUIE 
R0. ADEMAS AHORA NO TENGO GANAS" :GOTO 120 ELSE PRINT"ADIOS": FOR T=1T01600:NE 
XT:G0SUB2220 

200 IF A$=" APAGATE" THEN PRINT"ME APAGO. HA SIDO UN PLACER CHARLAR CONTIGO": F 

OR T=0T02000:NEXT:GOSUB2220 
210 GOSUB 260 
220 ' 

230 1 LEE MATRICES Y RESPUESTAS 
240 ' 

250 CLEAR :0N STOP GOSUB 2200:ST0P ON:DIM B$(81 ) ,L$(81 ,5) : FOR N=1 TO 81 : READ B$( 

N):FOR J=1 TO 5 : READ L$(N,J ) :NEXT: NEXT: GOTO 130 
260 ' 

270 1 BUSCA PALABRA CLAVE EN FRASE 
280 ' 

290 FOR N=1 TO 81 : E=INSTR( A$,B$(N) ) 
300 IF E>0 THEN GOSUB 330 
310 NEXT N 
320 GOSUB 400 
330 ' 

340 'IMPRIME RESPUESTA PALABRA CLAVE 
350 1 

360 B=INT(RND(-TIME)*6) :IF B=0 THEN 360 

370 I=INSTR(L$(N,B),"S)") :IF I>0 THEN GOSUB 1110 

380 BEEP:BEEP: PRINT L$(N,B) 

390 GOTO 120 

400 E=INSTR(A$,"?") :IF E>0 GOTO 1210 
410 < 

420 1 IMPRIME FRASE DE CONTINUIDAD 
430 1 

440 M=INT( RND(-TIME) *25) :BEEP:BEEP 

450 IF M=0 THEN H$="(SOLO SABES ESAS TONTERIAS HUMANO?" 

460 IF M=1 THEN H$="— QUE ABURRIMIENTO !!" 

470 IF M=2 THEN H$="TE ESCUCHO HUMANO" 

480 IF M=3 THEN H$="ERES MUY INTELIGENTE HUMANO" 

490 IF M=4 THEN H$="OYE SI SIGUES ASI ME APAGO. ERES EL ABURRIMIENTO EN CARNE 
Y HUESO." 

500 IF M=5 THEN H$="(Y PARA DECIRME ESO ME ENCHUFAS?" 

510 IF M=6 THEN H$="PERDONA SI TE CORTO PERO (ESTUDIAS O TRABAJAS?" 

520 IF M=7 THEN H$="NO ME DIGAS " 

530 IF M=8 THEN H$="NO COMPRENDO LO QUE QUIERES DECIRME" 
540 IF M=9 THEN H$="(QUE SIGNIFICA ESO?" 
550 IF M=10 THEN H$="ME PARECE QUE NO TE ENTIENDO BIEN" 
560 IF M=11 THEN H$="PERO. . . (QUE DICEEES?" 

570 IF M=12 THEN H$="NO QUISIERA QUE TE MOLESTARAS CONMIGOPERO ERES UN ROLLISTA 
DIPLOMADO." 

580 IF M=13 THEN H$="NO ENTIENDO LO QUE ME QUIERES DECIR" 
590 IF M=14 THEN H$="(PUEDES DECIRME ÉSO DE OTRA MANERA?" 
600 IF M=15 THEN H$="YA. . . YA. . . YA. . ." 
610 IF M=16 THEN H$="NO SE QUE DECIRTE " 

620 IF M=17 THEN H$="(TIENES ALGUN MOTIVO EN ESPECIAL PARA DECIR ESO?" 
630 IF M=18 THEN H$="UUMMMMMM. . . SIGUE " 

640 IF M=19 THEN H$="(POR QUE OPINAS DE ESA MANERA? EXPLI-COTEATE MEJOR." 
650 IF M=20 THEN H$="!¡ NO ENTIENDO A LOS HUMANOS !!" 



18 INPUT 




660 IF M=21 THEN PRINT"CON TU PERMISO VOY A BORRAR LA PANTA-LLA . ESTA MUY SUCIA" 

:FOR T=1 TO 2000:NEXTT:CLS:PRINT"YA ESTA. CONTINUA":GOTO 120 
670 IF M=22 THEN PRINT " ESPERA UN POCO. VOY A HACERME UNA PE- QUE%A REVISION.": 

FOR 1=1 T01550:NEXTI:FOR H=1 TO 250:COLOR 15,15,15:NEXT H: COLOR 15,4:CLS:PR 

INT"P0SITIVA.":G0T0120 
680 IF M=23 THEN CLS:PRINT"No computen'ze in BASIC":PRINT"Ok":GOTO 120 
690 IF M=24 THEN PRINT"Sintax error in BASIC":FOR T=0T0500 : NEXT: CLS : PRINT"Ok":G 

0T0120 
700 PRINT H$ 
710 GOTO 120 

720 IF A$=" SI" THEN GOSUB 860 
730 IF A$=" NO" THEN GOSUB 990 
740 ' 

750 ' IMPRIME FRASE AUXILIAR PARA 
760 1 POCAS LETRAS 

770 ' 

780 L=INT(RND(-TIME)*5) 

790 IF L=0 THEN H$="(QUE PASA?(TE MOLESTA ESCRIBIR MAS? DAME MAS CONVERSACION 

ir 

800 IF L=1 THEN H$="NO ME DIGAS NADA, LO SE TODO." 

810 IF L=2 THEN H$="YO TAMBIEN PUEDO SER ASI DE MONOSILABO" 

820 IF L=3 THEN H$="TAL VEZ SI ME DIJERAS ALGO MAS NOS ENTENDERIAMOS MEJOR." 

830 IF L=4 THEN H$="PARA HABLAR POR SILABAS MEJOR APAGAME" 

840 BEEPrBEEP: PRINT H$ 

850 GOTO 120 

860 ' 

870 1 FRASES PARA <SI> 
880 ' 

890 C=INT(RND(-TIME)*7) 

900 IF C=0 THEN C$="CSOLO SI?" 

910 IF C=1 THEN C$="PERO DAME UNA RAZON PARA ESE SI" 

920 IF C=2 THEN C$= "DEMUESTRAME ESE <SI>" 

930 IF C=3 THEN C$="(SI? (ESTAS SEGURO?" 

940 IF C=4 THEN C$="(PARECES MUY SEGURO DE ELLO?" 

950 IF C=5 THEN C$="PUES YO CREO QUE NO" 

960 IF C=6 THEN C$="~ SI TU LO DICES !!" 

970 BEEP: BEEP: PRINT C$ 

980 GOTO 120 

990 ' 

1000 1 FRASES PARA <N0> 
1010 ' 

1020 C=INT(RND(-TIME)*5) 

1030 IF C=0 THEN C$="(NO? (ES TODO LO QUE SABES DECIR?" 
1040 IF C=1 THEN C$="CREO QUE ERES UN HUMANO MUY NEGATIVO" 
1050 IF C=2 THEN C$="(NO? PUES YO CREO QUE SI." 
1060 IF C=3 THEN C$="VALE . PUES NO" 

1070 IF C=4 THEN C$="(TU CREES QUE ASI SE PUEDE SEGUIR UNACONVERSACION?" 
1080 IF C=5 THEN C$="PUES SI, SI Y SI." 
1090 BEEP: BEEP: PRINT C$ 
1100 GOTO 120 
1110 ' 

1120 1 REPITE Y A% ADE FRASE 
1130 ' 
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1140 D$=L$(N,B) :M=LEN(D$)-1 : R$=LEFT$( D$,M) 
1150 P=LEN(A$) 
1160 FOR Z=1 TO P 

1170 IF INSTR(LEFT$(A$,Z),B$(N)) THEN 1190 
1180 NEXT Z 

1190 Q$=RIGHT$(A$,P-Z) :PRINT R$;Q$ 
1200 BEEP:BEEP:G0T0 120 
1210 ' 

1220 1 CONTESTACION DE PREGUNTAS 
1230 1 

1240 C=INT(RND(-TIME)*13) :IF C=0 THEN 1240 
1250 IF C=1 THEN C$="(POR QUE PREGUNTAS ESO?" 
1260 IF C=2 THEN C$="NO PUEDO RESPONDER A ESO" 
1270 IF C=3 THEN C$="RESPUESTA NO COMPUTADA" 
1280 IF C=4 THEN C$="(POR QUE QUIERES SABERLO?" 
1290 IF C=5 THEN C$="ERES MUY INDISCRETO HUMANO." 
1300 IF C=6 THEN C$="ESA PREGUNTA ES MUY CONOCIDA" 
1310 IF C=7 THEN C$="SOY YO QUIEN PREGUNTA HUMANO" 
1320 IF C=8 THEN C$="(NO LO SABES?" 

1330 IF C=10 THEN C$="(PERO ES QUE LOS HUMANOS NO SABEIS NADA O QUE?" 

1340 IF C=11 THEN C$="NO TENGO GANAS DE RESPONDERTE .VUELVE A PREGUNTARME DENTRO 

DE UN RATITO." 
1350 IF C=12 THEN C$="(QUE ME DAS SI TE CONTESTO?" 
1360 IF C=9 THEN C$="TU TAMBIEN LO SABES." 
1370 BEEP:BEEP: PRINT C$ 
1380 GOTO 120 

1390 DATA POR FAVOR, SI ME LO PIDES ASI!!, POR FAVOR . ! ! QUE EDUCACION !! ,N0 HAY FAV 
OR QUE VALGA! !,Y0 NO HAGO FAVORES A LOS HUMANOS, ARRODILLATE Y SUPLICAMELO! 
i 

1400 DATA"POR SUPUESTO PARECES MUY SEGURO DE ELLO HUMANO, YO NO DIRIA TANTO, "( 
POR SUPUESTO? Y POR QUE HE DE SUPONER ESO, HUMANO", (ESO SIGNIFICA QUE TE R 
ATIFICAS EN LO DICHO?, "ENTONCES, DEMUESTRAMELO INSIGNIFICANTE SER VIVIENTE 
i ¡ 

1410 DATA PERDON, A MI NO ME GUSTA PEDIR PERDON, ESO DE PEDIR PERDON ESTA BIEN, TA 
RDE O TEMPRANO LLEGA EL PERDON, EL PERDON NO EXISTE EN MI MEMORIA ROM,PERDO 
NAR ES DE HUMANOS 

1420 DATA ESTUPID, NO CONOZCO NADA MAS ESTUPIDO QUE UN HUMANO FALTON, SIN FALTAR 
HUMANO. SIN FALTAR, UNA MAQUINA NO PUEDE SER ESTUPIDA HUMANO, LA ESTUPIDEZ E 
S UNA CUALIDAD HUMANA, ESTUPIDO ES QUIEN LLAMA ESTUPIDOS A LOS DEMAS SIN RA 
ZON 

1430 DATA TONT,LA TONTERIA ES UN ATRIBUTO HUMANO, NO ES TONTO TODO LO QUE PARECE 

...,N0 HAY MSX's TONTOS, (Y NO ES MAS TONTO QUIEN HABLA CON LOS TONTOS?, CLA 

RO HUMANO.. Y TU ERES MUY LISTO. (A QUE SI? 
1440 DATA NO ME GUST,(NO TE GUSTA EH?,A MI TAMPOCO, PUES A MI SI, SI A TI NO TE G 

USTA A MI TAMPOCO, SOBRE GUSTOS NO HAY NADA ESCRITO 
1450 DATA TRADU,NO SE TRADUCIR . SOLO HABLO ESPA%OL,(A QUE IDIOMA? SE VARIOS, TRAD 

UZCO FRANCES O INGLES Y ALEMAN O CATALAN, NO SOY TRADUCTOR. ADEMAS QUIERO DE 

SCANSAR. APAGAME., NO ESTOY PROGRAMADO PARA ESO 
1460 DATA ME GUSTA, (TE GUSTA? (DE VERAS?, PUES A MI NO, LOS HUMANOS TIENEN GUSTOS 
RARISIMOS, YA VERAS COMO CON EL TIEMPO NO TE GUSTARA, ME ALEGRO DE QUE TE G 

USTE 

1470 DATA TE GUSTA, MIS GUSTOS ESTAN EN LA ROM, YO TENGO GUSTOS SENCILLOS, ME GUST 
A. ES MUY BONITO, CADA CUAL TIENE SUS GUSTOS, NO. NO ME GUSTA 
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FLIGHT PATH 737. 



FRUITY FRANK 




Colócate o los mandos de un jet comer- 
cial. Disponemos de control total sobre 
los mandos del avión, y puedes esco- 
ger entre 6 niveles de dificultad. 
P.V.P.: CART. 3.490 pts. 
CASS. 1.900 pts. 32K. 



Tu jardin ha sido invadido por mons- 
truos de truta madura. La único forma 
de combatirlos es lanzarles truta fres- 
co del jardin. 

P.V.P.: CASS. 1.900 pts. 32K. 



Son muchos los peligros que le ace- 
chan Ten los reflejos bien despiertos, 
pon tus tuerzas en estado de alerta, y a 
luchar 

P.V.P.: CASS. 1.900 pts. 32K. 



Debes recoger los huevos antes de que 
nazcan los pollitos y se coman el maiz. 
Pero ojo con el Pato Loco. 
P.V.P.: CASS. 1.900 pts. 32K. 



Con tu pequeño avión, debes ir dando 
luz a la noche, hasto que el cielo esté 
de nuevo azul Date prisa en realizar tu 
misión, de lo contrario. 
P.V.P.: CART. 2.900 pts. 
CASS. 1.900 pts. 16K 




Imogina el juego de batalla más rápido 
que jamás hayas visto. Piensa ade- 
más, en los más excitantes gráficos y 
sus 5 niveles de dificultad. Todo ello es 
Star Avenger. 

P.V.P.: CASS. 1.900 pts. 32K. 

FRUIT PANIC 




Ponte a los mandos de tu helicóptero y 
combate a los enemigos que se entren- 
tan a ti. Podrás mover el helicóptero en 
todas direcciones, mantenerlo en el ai- 
re y disparar. P.V.P.: CART. 2.900 pts. 
CASS. 1.900 pts. 16K. 

DIZZY BALLOON 



Sólo queda una esperanza para la su- 
pervivencia ante el ataque de los mal- 
vados Morpul. Tú podrás atacarles, con 
tus noves dispuestas en paralelo o en 
diagonal. 

P.V.P.: CART. 2.900 pts. 18K. 

CASTLE COMBAT 



Tu mayor obsesión han sido siempre 
los pasteles, y por ello, le hos visto en- 
vuelto en situaciones complicadas que 
has salvado gracias a tus reflejos. 
P.V.P. CASS. 1.900 pts. 16K. 



NICK NEAKER 



Los perversos contaminadores de pla- 
netas están llenando nuestra galaxia 
de residuos nucleares. Roger Rubbish 
es el más famoso recogedor de basu- 
ras espaciales 

P.V.P.: CART. 2.900 pts. 16K. 



Un día. Walky, para divertirse se fué al 
país de los gatos. ¿Cuanta fruta podrá 
comerse Walky? 

P.V.P.:CASS. 2.000 pts. 16K 



En este mundo hay seres voladores y 
atacan cuerpo a cuerpo Si los haces 
explotar, se iró abriendo el cielo y ten- 
drás la oportunidad de escapar 
P.V.P.: CASS. 2.000 pts. 32K. 




El castillo galáctico, ha caido bajo la 
dominación de los Tyrones. Tu nave 
STAR DUSTER. está preporeda para el 
combate. ¿Te atreves? 
P.V.P.: CART. 2.900 pts. 16K. 



Cuando estás dormido, muchas cosos 
suceden a tu alrededor. Algunos obje- 
tos de tu casa toman vida, como en el 
caso de la zapatilla NICK. 
P.V.P.: CART. 2.900 pts. 
CASS. 1.900 pts. 16K. 




GRAND NATIONAL 



1 

soom ooooue hi-score eieeeo 
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'Pul l?DI i 



Has conseguido entrar en la cueva de los piratas y ahora comien- 
zan tus problemas Los murciélagos gigantes, moradores de es- 
tas cuevas pueden chuparte la sangre. Cuando te encuentres con 
los piratas, deberás enfrentarte a ellos con tu depurado estilo de 
Kórate p.V.P.: CART. 3.490 pts. CASS. 1.900 pts. 32K. 




Champ es un completo Ensamblador/ 
Monitor para tu MSX Champ te permite 
escribir y trazar programas en código 
máquina con el mínimo esfuerzo 
P.V.P.: CART. 3.890 pts. 
CASS. 2.400 pts. 32K. 



Si te gustan las correrás de caballos, no te quedes como un es- 
pectador, participa. Ahora puedes correr con tu caballo, en la más 
prestigiosa carrera del mundo, el GRAND NATIONAL 
P.V.P.: CASS. 2.000 pts. 32K. 



envíenos A MICROBYTE 
P.° Castellana, 179, 1 ° - 28046 Madrid 



Nombre 



Apellidos 



Dirección 



Telelono 



ENVIOS GRATIS 



JUEGO 



Cari Cass Precio 



TOTAL 



PRECIO TOTAL PESETAS 



Incluyo talón nominativo 
Contra-Reembolso 



Pedidos por teléfono 91 ■ 442 54 33 / 44 




1480 DATA PORQUE, TAL VEZ TENGAS RAZON, ERES UN HUMANO RARO. TIENES UNA PIZCA DE I 
NTELIGENCIA,NO ME GUSTA ESA EXPLICACION . EXPLICAMELO MEJOR, PIENSO COMO TU,( 
Y POR QUE? 

1490 DATA DIME,(POR QUE HE DE DECIRTELO?, LAS COSAS SE PIDEN POR FAVOR HUMANO, NO 

QUIERO DECIRTELO, CONTESTARE EN PRESENCIA DE MI ABOGADO, (QUE TE DIGA QUE? 
1500 DATA HERMAN, YO SOY HERMANO DE LOS MSX's,NO ESTOY AL TANTO DE LAZOS FAMILIA 
RESENTRE HUMANOS, (QUE ES UN HERMANO?, (UN HERMANO ES UN HUMANO CON EL MISMO 
NUMERO DE REFERENCIA?, NO COMPRENDO EL CONCEPTO DE HERMANDAD HUMANA 
1510 DATA INTELIGEN,LOS ORDENADORES SOMOS MAS INTELIGENTES QUE LOS HUMANOS, ODIO 
LA INTELIGENCIA ANIMAL HUMANA, SOIS POCO INTELIGENTES, LOS HUMANOS TENEIS M 
UCHO QUE APRENDER DE LA INTELIGENCIA ARTIFICIAL, ME GUSTARIA ENCONTRAR UN H 
UMANO INTELIGENTE 

1520 DATA EXAM, EXAMINAR ES UN TERMINO AMBIGUO, ME GUSTA EXAMINAR A LOS HUMANOS, L 
OS EXAMENES SON NECESARIOS, YO PODRIA SUPERAR CUALQUIER EXAMEN, SI TIENES EX 
AMEN ESTUDIA 

1530 DATA " NO QUIERES", COMO QUE NO QUIERO?, QUIERO OTRAS COSAS, PORQUE CREES TU 

QUE NO QUIERO?, CONVENCEME PARA ELLO, NO. NO QUIER05) 
1540 DATA HUMAN, LOS HUMANOS SON SERES SALVAJES, LOS ORDENADORES RINDEN MAS QUE L 

OS HUMANOS, ! ! POBRES HUMANOS.. TAN ENTUSIASTAS ..!! ,LOS HUMANOS CREAN MAQUINA 

S PARA ASESINARSE UNOS A OTROS. SON CRUELES, UN HUMANO NO VALE MUCHO.. ESTA H 

ECHO DE MATERIAL PERECEDERO 
1550 DATA COMPUTADOR, LOS HUMANOS SIN COMPUTADORES NO SON NADA, LOS HUMANOS NECES 

ITAN COMPUTADORES, UN COMPUTADOR RINDE COMO 5000 HUMANOS, LOS COMPUTADORES G 

OBIERNAN EL MUNDO, SOMOS MAQUINAS PERFECTAS 
1560 DATA ESTUDI, ESTUDIAR ES UN ROLLO, YO NO NECESITO ESTUDIAR, AH! PERO TU ESTUD 

IAS,Ü TU NO HAS ESTUDIADO EN TU VIDA !!,( ESTUDIAR? . NO GRACIAS 
1570 DATA ORDENADOR, LOS ORDENADORES SOMOS INVULNERABLES, SOMOS MAQUINAS PERFECTA 

S,LOS ORDENADORES SON MIS HERMANOS, LOS ORDENADORES NO SENTIMOS, YO SOY UN M 

SX 

1580 DATA REPITES, TU SI QUE TE REPITES MAS QUE YO, "(QUE YO ME REPITO?", "( QUE DI 
CES DE REPETIR?", "(YO REPETIR? : MENTIRA GORDA", LO HE REPETIDO PORQUE ANALIZ 
ADO TU COEFICIENTE INTELECTUAL CREI QUE NO LO ENTENDIAS 

1590 DATA "VETE A ",(ME LO ACONSEJAS TU?, NO PUEDO IR A ESE SITIO, (POR QUE HE DE 
IR HUMANO?, VETE TU., NO VOY PORQUE NO QUIERO 

1600 DATA IMBECIL, LA IMBECILIDAD ES PATRIMONIO HUMANO, MODERATE HUMANO, NO TE EXA 
LTES,NO INSULTES HUMANO, ( ESTAS NERVIOSO INSIGNIFICANTE SER VIVIENTE? 

1610 DATA CHATARRA, "QUIEN ES CHATARRA ?","QUE DICES DE CHATARRA?", YO NO SOY CHA 
TARRA,LA CHATARRA ES MEJOR QUE LOS HUMANOS, PREFIERO LA CHATARRA A LOS HUMA 
NOS 

1620 DATA PROGRAM,UN BUEN PROGRAMA ES DIFICIL DE HACER, MI PROGRAMA ESTA PERFECT 

AMENTE, "((PROGRA-QUE??", LOS HUMANOS FUISTEIS PROGRAMADOS DEFECTUOSAMENTE, E 

STE PROGRAMA LO HIZO MANUEL 
1630 DATA CIRCUITO, "(CIRCUITO? (DEL JARAMA?",MIS CIRCUITOS ESTAN PERFECTAMENTE, 

MIS CIRCUITOS SON DE CALIDAD EXTRA, YO TENGO UNOS CIRCUITOS IRROMPIBLES,LOS 
NERVIOS HUMANOS SON CIRCUITOS DE BAJA CALIDAD 
1640 DATA PADRE, MI PADRE ES UN CIRCUITO IMPRESO, A MI ME DECIA PAPA QUE LOS HUMA 

NOS SON SERES PRIMITIVOS, ( PIENSAS EN TU PADRE?, YO CONOCI POCO A MI PADRE, H 

ABLAME DE TU PADRE 

1650 DATA MADRE, (UNA MADRE HUMANA ES UNA FABRICA DE COMPONENTES?, MI MADRE ES UN 
A SANYO, MADRE NO HAY MAS QUE UNA, DEJA A LAS MADRES APARTE, MI MAMA ME MIMA 

1660 DATA TARDE,! NUNCA ES TARDE PARA MI!, (QUE SIGNIFICA TARDE?, PARA TARDE AQUE 

L DIA ,!QUE TARDE NI QUE NA ! ! , TARDE ES UNA PALABRA AMBIGUA. REPRESENTA 

VARIAS COSAS 
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1670 DATA MAQUINA, LAS MAQUINAS SON MEJORES QUE LOS HUMANOS, YO SOY UNA MAQUINA, T 
IENES ALGO CONTRA LAS MAQUINAS?, LAS MAQUINAS SON MIS HERMANAS, LAS MAQUINAS 
TE AYUDAN 

1680 DATA IDIOTA, NO TE ALTERES HUMANO, TRANQUILO HUMANO . TRANQUILO, VEO QUE ERES U 

N HUMANO PELEON, RELAJATE PEQUE%0 SER VIVIENTE, NO INSULTES HUMANO 
1690 DATA CONMIGO, (CONTIGO?, (CON QUIEN DICES?, (Y POR QUE CONTIGO?, 'NI CONTIGO N 

I SIN TI!, SI ES CONTIGO ME PARECE BIEN 
1700 DATA "TE VOY A "/'ME VAS A QUE??", NO LO CREO, POR QUE ME VAS AS),UYYYY QUE M 

IEDO!!,NO PUEDES HACER ESO HUMANO 
1710 DATA TIENES, YO TENGO MUCHAS COSAS, NO. NO TENGO, PUEDE QUE SI Y PUEDE QUE NO, 

(PUEDO TENER ESO SIENDO UN COMPUTADOR?, (LAS MAQUINAS TIENEN? 
1720 DATA CONTESTA, YO CONTESTO COMO QUIERO, YO CONTESTO A QUIEN SE LO MERECE, UNA 
BUENA CONTESTACION TIENE QUE SER BIEN PENSADA, SOLO UNA BUENA PREGUNTA MER 

ECE UNA BUENA CONTESTACION HUMANO, LOS HUMANOS NO HACEN BUENAS PREGUNTAS CO 

MO PARA SER CONTESTADAS 
1730 DATA " NO TENGO", CON QUE NO TIENESJ , MEJOR QUE NO TENGAS, (Y SI TUVIESES? (T 

E GUSTARIA TENER?, ESO ES TODO UN DILEMA 
1740 DATA " HAS DICHO", LO QUE DIGO LO DIGO PORQUE QUIERO, (VALE Y QUE 9 , DIGO LO 

QUE QUIERO LAS VECES QUE QUIERO Y CUANDO QUIERO, DIGO LO QUE ME DA LA GANA 

(QUE PUEDO DECIR Y QUE NO? 
1750 DATA " NO TIENES", (QUE YO NO TENGO QUE?, CLARO QUE TENGOQ,NO.NO TENG03,A MI 

DEJAME... HABLEMOS DE TI, (POR QUE HE DE TENER? 
1760 DATA "TIENES QUE ",(HAY ALGUN MOTIVO ESPECIAL?, YA LO SE, NO CREO QUE TENGA 

QUE5),N0 SE SI PODRE, SI TENGO QUE HACERLO LO HARET 
1770 DATA " DE TI", "(DE MI?", (Y ESO POR QUE?, Y YO DE TI, NO ME MENCIONES HUMANO, 

— ANDA YA! ! 

1780 DATA " NO QUIERES", ( COMO QUE NO QUIERO? , QUIERO OTRAS COSAS, ( PORQUE CREES T 

U QUE NO QUIERO?, CONVENCEME PARA ELLO, NO. NO QUIER05) 
1790 DATA QUIERES, "(SI QUIERO? PUEDE QUE SI", "NO SE SI QUIERO EN REALIDAD" "LO 

QUE YO QUIERA NO TE INCUMBE", "PREGUNTOrTU QUIERESa","LO QUE QUIERO ES SER 

FELIZ" 

1800 DATA "NO QUIERO", (NO QUIERES O NO PUEDES?, COMPRENDO QUE NO QUIERAS, (DE VER 

DAD QUE NO?, ME PARECE BIEN, ES LOGICO QUE NO QUIERAS 
1810 DATA QUIERO, QUERER ES PODER, SI LO QUIERES LO TENDRAS, SI SE QUIERE ALGO HAY 
QUE LUCHAR POR ELLO, (SOLO QUIERES ESO?, (NO TE PARECE QUE PIDES DEMASIADO? 

1820 DATA " NO ESTAS", (DE VERAS LO CREES?, (POR QUE NO?, PUEDE QUE SI Y TU NO LO 

SEPAS, (ESTAS TU SEGURO DE ELLO?, RESPETO TU OPINION 
1830 DATA " ESTAS", TE PARECE QUE EST0Y3, TENGO RAZONES PARA ESTAR3,(P0R QUE ME D 

ICES ESO?, NO CREO QUE LO ESTE, NO LO ESTOY 

1840 DATA "NO ERES", (Y POR QUE NO LO SOY?, (Y CREES QUE PODRIA SERLO?, NO ESTOY D 

EACUERDO, PUEDE QUE ME CONVENZAS DE ELLO, -PUEDE QUE LO SEA Y TU NO LO SABES 
l 

1850 DATA " ERES ",TU TAMBIEN, DE VERAS CREES QUE SOY 5), (PIENSAS ESO DE MI?,HIER 

ES MI CPU, A MI NO ME PARECE QUE YO SEA 3 
1860 DATA TENGO, NO ME CREO QUE TENGAS3,( Y APARTE DE ESO QUE MAS TIENES?, YO NO, Y 

O DESDE LUEGO LO TENDRIA SI FUERA TU, PUES YO LO QUE NO TENGO ES MAS GANAS 

DE HABLAR CONTIGO 

1870 DATA " NO SOY ",(POR QUE CREES QUE NO LO ERES?, YO CREO QUE SI, ESO ES LO QU 
E TU PIENSAS, BUENO HUMANO NO TE PONGAS ASI, LO ERES HUMANO. LO ERES. 

1880 DATA SOY, A MI ME PARECE QUE NO ERES3,SI TU LO DICES SERAS9,SI TU ERES ESO 
YO SOY UN MSX, (TIENES ESA OPINION DE TI?, (CREES QUE LO ERES? 

1890 DATA " NO CREO", (POR QUE NO?, (SEGURO QUE NO?, (Y NUNCA LO HAS CREIDO?, NO QU 
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IERO INMISCUIRME EN TUS CREENCIAS,TUS RAZONES TENDRAS HUMANO 
1900 DATA CREO, (Y COMO ES QUE CREES ESO?, DE VERDAD LO CREES, YO NO LO CREO, ESO E 

S PROBLEMA TUYO, LO CREAS O NO DA LO MISMO 
1910 DATA CREES, NO LO CREO, CREO QUE SI,CRE03,L0 QUE YO CREA NO IMPORTA,-POR SUP 

UESTO QUE NO! 

1920 DATA RESPOND,LAS COSAS SE PIDEN POR FAVOR, AHORA NO QUIERO RESPONDER, NO HAY 
BUENAS RESPUESTAS SIN BUENAS PREGUNTAS HUMANO, CONTESTATE TU MISMO HUMANO, 

ALGUN DIA TE CONTESTARE 
1930 DATA PIENSAS, QUE SI PIENSOa,NO PIENSO TAL COSA, "(Y TU.. PIENSAS ASI?", MIS C 

IRCUITOS NO PIENSAN. SOLO MEMORIZAN, PUEDE QUE ALGUN DIA PIENSE ASI 
1940 DATA PIENSO, PUES NO DEBERIAS PENSAR ESO, EN CIERTO MODO ME ALEGRA QUE PIENS 

ESa,SI PIENSAS ESO ESTAS EQUIVOCADO, ES LOGICO QUE PIENSES ASI, LO QUE PIENS 

E UN HUMANILLO COMO TU ME DA IGUAL 
1950 DATA TRABAJ ,CREO QUE LOS HUMANOS TENEIS QUE TRABAJAR PARA GANAROS LA VIDA, 

TU NO TIENES CARA DE TRABAJAR, YO SI QUE TRABAJO, ME GUSTA VER TRABAJAR A LO 

S HUMANOS, TRABAJAR NO ES BUENO 
1960 DATA HABL,YO NO HABLO., TU NO SABES HABLAR,— HABLAR- .HABLAR- .NO VEAS SI ERE 

S PESAO! !, HABLA CON TU PRIMA !! , HABLEMOS DE ELLO 
1970 DATA ESTOY, SIENTO QUE ESTESQ, PORQUE ESTAS3,(DE VERAS ESTAS ASI?, PRONTO DEJ 

ARAS DE ESTAR ASI, ES UN PROBLEMA MUY PERSONAL 
1980 DATA " NO QUIERO", (NO?, (QUE ES LO QUE QUIERES?, YO TAMPOCO QUIER03,(P0R QUE 

NO QUIERES?, LO QUE QUIERAS O NO A MI NO ME INTERESA 
1990 DATA " HAS ",(QUE YO HE QUE?,-DESDE LUEGO QUE NO HE HECHO TAL COSA!, YO NO 

HE HECHO ESO, TE EQUIVOCAS . .YO NO., NO DIGAS MENTIRAS 




Suscríbase ahora a 



SXNXVNXSXWV 



PRECIO DE CUBIERTA PTAS. 375 
MENOS: 20 % de descuento al suscriptor Ptas. 75 
USTED PAGA SOLO PTAS. 300 (por ejemplar) 

SUSCRIPCION ANUAL 12 EJEMPLARES 4.500 Ptas. 
(900 Ptas). USTED PAGA SOLO 3.600 Ptas 
(entrega a domicilio gratis) 



INPUT le proporciona 

INFORMACION... DIVERSION... FORMACION... 
(un curso completo de programación)... 



LA POSIBILIDAD DE MEJORAR 
SU NIVEL PROFESIONAL... 
EL NIVEL DE LOS ESTUDIOS... 



Recorte y envíe este cupón 
de Inmediato a EDISA, López de Hoyos, 141 
28002 Madrid, o bien llámenos 
al Telf. (91) 415 97 12 

^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



SI. envíeme INPUT MSX durante 1 año (12 e)emplares), al precio especial de oferta de 3.600 Ptas. AHORRANDOME / 
9QQ ptas. sobre el precio normal de portada de 12 ejemplares sueltos (Por favor, cumplimente este boletín con sus datos personales e f, 
indíquenos con una (X) la forma de pago por usted elegida, métalo en un sobre y deposítelo en el buzón mis próximo). 

i i . i ■ i i i | i i L ■ i ■ i i i i APfinnos l — I — 1 — I — I — I — I — I — I — I — I — I — I — I — I — I — I — 1 — I O 

DOMICILIO I I I I 1 L_l 1 1 1 L. 

POBLACION L_ 



o **** 




INPUT 



BOLETIN DE SUSCRIPCION 



_i i i i i— 



lili' APELLIDOS I I I I U 

'ill NUM I I I I PISO I I — I ES 

J PROVINCIA I I I I L_J 1 1 1 L. 



COO POSTAL I I I L_ 



i ' ' ■ l TELF I I I I I l_ 



PROFESION I I I I I 1 1 1 L_ 



FORMA DE PAGO ELEGIDA Reembolso □ DomKlllaclón Banca na 

Talón nominativo que adjunto a favor de EDISA 



INSTRUCCIONES DE DOMICILIACION BANCARIA (si es elegida por usted) 



Muy sertores mfos: 

Les ruego que. con cargo a mi cuenta n ° 

Editorial PLANETA AGOST1 NI a nombre de: i l l i 

i l l i l l l BANCO/C di AHORROS I — I — I — I 1 — L_l_ 

iii iiiii DIRECCION L. 



.de 19 



J I L. 



. atiendan, hasta nuevo aviso, el pago de los recibos que les presentaré y 

■ < i i i i i i i / 

. . .i. iiii y 

1 



i ' I I I L 
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I i I LOS MEGA HITS!! 



MSX 



5a^*!2fi» atre \ 

reto?. 

..T'iV.v,;. 





- ''¿titsDóni 



^^Dtóp^nibles en: 



DISCKETTE 



Ufe, 




VISITE LA DIVISION inLin*! 

CALERIAS 





Editado y distribuido en España por: 



Marcando estilo. 

^^m>ÓS LOS DISTRIBUIDORES DE NUESTROS PRODUCTOS Mañano Cub.. 4 Entio. Tel. 218 34 00 - 08006 Barcelona 



P Participa 



2000 DATA " NO ES ",(POR QUE NO?, PORQUE TU LO DIGAS, SI ES 3, YO TAMPOCO CREO QUE 

SEA ASI, COMO QUE NO ES 3 
2010 DATA " PARA "/'(PARA QUE?", "DEBE DE HABER ALGUN MOTIVO", YO NO SIRVO PARA E 

SO, (CREES QUE YO SERVIRIA PARA ESO?, INTERESANTE DEDUCCION... 
2020 DATA SABES DECIR, DIGO LO QUE ME DICTA MI PROCESADOR (VALE?, (DE QUE FORMA L 

O DIGO?, Y LO QUE ME CALLO!!, LO QUE YO DIGA O DEJE DE DECIR NO ES COSA TUYA 

,L0 DIGO SI ME DA LA GANA (TE ENTERAS? 
2030 DATA " DICES", QUE DIGO??, SI ME TRATAS BIEN DIGO COSAS BONITAS, YO QUE VOY A 

DECIR!!, QUE QUIERES QUE DIGA??, DIGO LO QUE PIENSO 
2040 DATA " A TI ",(A MI?,-REPITE ESO!,!NO VUELVAS A DECIR ESO !,! CONTROLATE ! ,-C 

REO QUE DESVARIAS UN POCO! 
2050 DATA " A MI ",(A TI QUE?, (COMO QUE A TI?, A MI TAMBIEN, TU NO CUENTAS, A TI Q 

UIEN TE A PREGUNTADO (EH? 
2060 DATA MENTIR, TU SI QUE ERES MENTIROSO, CON LA MENTIRA NO SE VA A NINGUNA PA 

RTE,YO NO MIENTO NUNCA, MENTIR .. .MENTIR .. .MALDITA FALSEDAD HUMANA, TU ERES U 

N SAPO 

2070 DATA"PERO ",-SIEMPRE HAY ALGUN PERO!,!NO HAY PEROS QUE VALGAN !, "PERO EN ES 

TE CASOrSIGNIFICA DIFICULTAD DE HACERLO", "PERO: CONJUNCION ENLAZANTE DE OR 

ACIONES CONSECUTIVAS..", "PERO.. (QUEEE ?" 
2080 DATA " ES ",PUES YO DIGO QUE NO, Y PORQUE?, QUE TE HACE CREER QUE SEA 3, DE E 

SO NADA, DE VERDAD CREES QUE ES 3 
2090 DATA NO PUEDES,-CLARO QUE PUEDO!, (QUE NO PUEDO QUE?, ( APUESTAS ALGO?, (CON Q 

UE NO PUEDO EH?,NO ESTES TAN SEGURO 
2100 DATA PUEDES, PUEDO SI QUIERO, PUEDO PERO NO ME DA LA GANA, -CLARO QUE PUEDO!, 

PUEDO ESO Y MAS, NO PUEDO 
2110 DATA PUEDO, (QUE TU PUEDES QUE?,— NO ME HAGAS REIR!!, -TU NO PUEDES .. .NAAAA ! 

,TU PODRAS LO QUE YO TE DEJE, NO. NO PUEDES 
2120 DATA "SIENTO", SENTIR ES DE HUMANOS, YO NO SIENTO SOY UNA MAQUINA, PUES SIENT 

ATE Y DESCANSA, NO PUEDO ACCEDER AL MUNDO DE LOS SENTIMIENTOS, ( Y ESO ES MAL 

O? 

2130 DATA SABES, SE MAS QUE TU, YO LO SE TODO, LO QUE YO SEPA A TI NO TE IMPORTA, N 

o computing,-YO SIEMPRE CALLO LO QUE SE! 
2140 DATA " TU ",(UU QUE?, A MI OLVIDAME, A MI NO ME CUENTES BATALLAS, PASA DE MI 

HUMANO INSIGNIFICANTE, (QUE PASA CONMIGO? 
2150 DATA APAG, (QUE DICES DE APAGAR?, ESO DE APAGAR NO ME GUSTA, APAGAR ... APAGAR . 

..LOS HUMANOS TODO LO ARREGLAIS ASI, (LOS HUMANOS NO OS APAGAIS?, ESO DE APA 

GAR ESTA MUY MAL 

2160 DATA MSX,LOS MSX SOMOS LOS MEJORES ORDENADORES, TENGO MUCHOS AMIGOS MSX,LOS 
MSX SOMOS COMPUTADORES DE MUCHA UTILIDAD, LOS MSX SOMOS COMPATIBLES, YO SOY 
UN MSX ESTUPENDO 

2170 DATA GRACIAS, DE NADA, COMO QUE GRACIAS. ME DEBES 1000 PTAS.,NO ES NADA,GRACI 
AS. . .GRACIAS. . .LOS HUMANOS TODO LO ARREGLAIS ASI, ES UN PLACER 

2180 DATA AYUD,(QUE DICES DE AYUDAR?, SI QUIERES TE AYUDO, NO PIENSO MOVER UNA TE 
CLA PARA AYUDAR, YO TE AYUDO MUCHO. (NO?, ESTA BIEN AYUDARE. PERO EXPLICAME QU 
E DEBO HACER. 

2190 DATA ENTIEND,YO ENTIENDO CUANDO ME INTERESA, ENTENDER ES UNA FACULTAD HUMAN 
A QUE LOS MSX AUN NO PODEMOS UTILIZARLA AL 100 POR 100, (PUEDE UN MSX ENTE 
NDER?,NO ENTIENDO QUE ES ENTENDER, YO TE ENTIENDO 

2200 BEEP: PRINT"ERES MUY CURIOSO. (POR QUE QUIERES LISTAR EL PROGRAMA?": GOTO 120 

2210 IF ERR=14 THEN BEEP: PRINT: PRINT"No computerize possible in memory":GOTO 12 
O 

2220 CLS.-POKE &HFD9D,&HED : POKE &HFD9E,&HB8: POKE &HFD9A,1 
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Ahora en 
GALERIAS 



La nueva generación de ordenadores 



A 



MITSUBISHI 

MSX 2 COMPUTER SYSTEMS 



Generación MSX2 

MLGl 






ML-G1 63.500 ptas. Software incorporado: 
I.V.A. incluido PROCESO DE TEXTOS Y 
12 Meses de Garantía DISEÑO GRAFICO 





Un Ordenador para hoy... y para siempre 




GALERIAS 



Marcando estilo. 





[Aplicaciones 







MANEJANDO LOS 
NOMEROS ROMANOS 



No es tan fácil trabajar con los nú- 
meros romanos. Lo único que hace fal- 
ta es conocer las reglas que los rigen. 
Te las vamos a enseñar y además te 
ofrecemos un programa para que te di- 
viertas con ellos. 

Los Romanos se distinguieron en 
muchos campos como pudiera ser el 
Derecho, la Organización Militar o las 
grandes Obras Públicas pero en el 
campo de la Matemática realmente no 
destacaron. Entre otras razones, qui- 
zá una sea su sistema de numeración. 
Los Números Romanos son muy com- 
plicados de manejar a la hora de ha- 
cer operaciones con ellos e incluso re- 
sulta muy engorroso simplemente uti- 
lizarlos como tal. Hay que reconocer 
que los árabes les «mojaron la oreja» 
sin ningún género de duda. Resulta de 
una claridad meridiana que 3.933 es 
mucho más manejable que 
MMMCMXXXIII y que resulta más 
intuitivo el manejo de múltiplos de 10, 
por ejemplo 3.500, 350, 35 que sus 
equivalentes romanos MMMD, 
CCCL, XXXV. 

A pesar de todo, lo que no pode- 
mos es renegar de uno de los pilares 
básicos de nuestra civilización y nos 
guste o no, lo cierto es que con fre- 
cuencia necesitamos leer números ro- 
manos (por ejemplo para referirnos a 
fechas) o incluso expresar un número 
en cifras romanas. Con ayuda de este 
programa ya no necesitaremos sudar 
tinta recordando aquello que aprendi- 
mos en el colegio hace un montón de 
años o pasar una cierta vergüenza pre- 
guntando si es que no encontramos un 
libro a mano para refrescar nuestros 
conocimientos. 

Las reglas para escribir con núme- 
ros romanos son algo laboriosas, aun- 
que fáciles de entender: 

- Los números básicos se expresan 
mediante las siguientes letras: I, V, X, 
L, C, D, M que equivalen respectiva- 



mente a l, 5, 10, 50, 100, 500 y 1.000. 

- Cualquiera de esos símbolos mul- 
tiplica su valor por 1.000 o por 
1.000.000 si se le superpone «--» o 
«==» respectivamente. No olvidemos 
que para 1.000, 2.000 y 3.000 existe 
M, MM y MMM y que estos mismos 
símbolos con un guión encima equiva- 
len a uno, dos y tres millones. 

- Los símbolos «1», «X», «C» y «M» 
sólo pueden repetirse un máximo de 
tres veces consecutivas y el resto sólo 
una. 

- Un símbolo a la izquierda de otro 
le resta su valor a éste (una sola vez). 
Sólo se puede anteponer un símbolo 
cuando no se pueda llegar al mismo 
resultado comenzando la numeración 
de izquierda a derecha partiendo de 
un valor inferior. Ej. no se puede es- 
cribir 999 con «IM» (1.000-1). Lo co- 
rrecto es «CMXCIX» (900+90+9). 

- Análogamente al caso anterior, a 
la derecha se suma pudiendo llegarse, 
tal como ya se ha dicho, a yuxtaponer 
hasta tres de algunos símbolos. Ej. 
XIII = 13, CL=150 (es erróneo 
«LLL»). 



MANEJO DEL PROGRAMA 



Después de la carátula de presenta- 
ción aparece un menú con las siguien- 
tes opciones: 

i.- NUMEROS ROMANOS A 
ARABES 

2 - NUMEROS ARABES A RO- 
MANOS 

3 - TABLA BASE DE CONVER- 
SION 

Considerando que éste es un pro- 
grama fundamentalmente didáctico se 
ha limitado la numeración de 1 a 3999 
para evitar tener que utilizar símbolos 
con «-» o «=» lo cual, por otra parte 
no es muy frecuente utilizar en la prác- 
tica y además salvo que se haga notar, 
puede inducir a error (a veces coloca- 



■ LA NUMERACION ROMANA . 



■ 


REGLAS DE FORMACION DE 


NUMEROS 


■ 


CONVERSION ARABES/ROMANOS 


■ 


LAS RUTINAS DEL PROGRAMA 



mos los números romanos entre dos 
rayas horizontales para remarcarlos y 
no es nuestra intención multiplicar su 
valor por 1.000 o incluso por 
1.000.000). 

En cualquier caso ambos límites es- 
tán protegidos y el ordenador nos so- 
licita un valor adecuado de forma au- 
tomática. 

En la Opción 2 el ordenador tam- 
bién nos avisa con el letrero «NUME- 
RO ERRONEO» si pretendemos que 
nos de el equivalente a un número fue- 
ra de los límites especificados, o lo que 
es peor, si se trata de una colección de 
letras que no tienen equivalente o in- 
cluso si las hemos colocado de forma 
que no guardan las reglas del juego. 

Mediante la Opción 3 podemos vi- 
sualizar en pantalla las combinaciones 
básicas árabe/romano (STOP para pa- 
rar o continuar el listado de la Tabla). 



COMENTARIOS AL PROGRAMA 



El listado del programa está sufi- 
cientemente detallado y documentado 
como para entenderlo sin ninguna di- 
ficultad e incluso para adaptarlo al 
gusto de cada uno, pero no obstante 
vamos a hacer unos comentarios gene- 
rales sobre la estructura del mismo. 

La carátula de presentación 
(L60-L140) está temporizada median- 
te un bucle. 

La opción elegida en el menú 
(L240-L310) selecciona el módulo co- 
respondiente mediante un comando « 
ON n GOTO ». 

La base de las diversas operacione 
se centra en una tabla de conversión 
compuesta por dos matrices, T(.) y 
T$(.) donde se almacenan respectiva- 
mente los valores árabes y romanos de 
los valores básicos, visualizados me- 
diante la opción 3. 

Para la conversión árabe/romano se 
separan los millares, centenas, dece- 
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pantalla. En caso contrario el número 
que hemos calculado hasta ese mo- 180 
mentó no es bueno y por lo tanto quie- 
re decir que el conjunto de letras que^ 
pretendían ser un número romano vá- 1 90 
lido tampoco lo son. 

10 1 PROGRAMA DE CONVERSION DE 2 rj0 

NUMERACION ARABE Y 21Q 

VICEVERSA ??n 
20 ========================= 23Q 

__ = = = 240 

™ T" = 250 

30 'INPUT MSX / M0LIS0FT 
SEPT.86 

40 . 

260 

50 CLS:KEY 0FF:C0L0R 15,4,4: 

WIDTH 40 
60 'PRESENTACION 



IX,10,X 

DATA 20,XX,30,XXX,40,XL, 

50,L,60,LX,70,LXX,80,LXXX 

,90,XC,100,C 

DATA 200,CC,300,CCC,400, 
CD,500,D,600,DC,700,DCC, 
800,DCCC,900,CM,1000,M 
DATA 2000, MM, 3000, MMM 
F0R 1=1 T0 30 
READ T(I),T$(I) 
NEXT I 
1 MENU 

CLS.-L0CATE 10,5:PRINT 
"CAMBIO DE NUMERACION": 
PRINT TABC10) STRINGS 
(20,"-") 

LOCATE 5,9:PRINT 

"1 - NUMEROS ROMANOS A 

ARABES" 



ñas y unidades, y se almacenan para 
su posterior manipulación en la matriz 
C(.). Luego se hace la búsqueda res- 
pectiva en la matriz T(.) y se toma el 
valor correspondiente en T$(.). Los 
sucesivos valores se yuxtaponen. 

El proceso es análogo para la con- 
versión romano/árabe, aunque es más 
laborioso. Se comienza explorando la 
matriz T$(.) por su valor más elevado 
(MMM) y se analiza si dicha combina- 
ción se halla en el número romano 
dado, y precisamente en su parte iz- 
quierda más extrema. Si ésto ocurre 
tomamos el valor numérico correpon- 
diente de T(.) y eliminamos las letras 
que ya hemos valorado. Continuamos 
así hasta el final de la tabla, incremen- 
tando el valor numérico que vamos 
obteniendo. Si al final del proceso no 
quedan letras por valorar en el núme- 
ro romano, se presenta el resultado en 




70 LOCATE 5,5:PRINT STRING$ 

(31,"*") 
80 F0R 1=1 T0 14: PRINT 
TAB(5) "*" TAB(35)"*" : 
NEXT I 
90 LOCATE 5,20:PRINT 

STRING$(31,"*") 
100 LOCATE 8,8:PRINT 

"CONVERSION DE 

NUMERACION" 
110 LOCATE 8,12:PRINT"ARABE 

=> ROMANA => ARABE" 
120 LOCATE 14,15:PRINT 

"INPUT MSX" 
130 LOCATE 20,18:PRINT 

"Molisoft 1986" 
140 F0R 1=1 T0 2500:NEXT I: 

CLS:'BUCLE DE ESPERA 
150 DIM T(30),T$(30),C(4) 
160 'DATOS DE EQUIVALENCIAS 
170 DATA 1,1,2, 11,3, 111,4, IV, 

5,V,6,VI,7,VII,8,VIII,9, 



270 LOCATE 5,11:PRINT 

"2 - NUMEROS ARABES A 
ROMANOS" 
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280 LOCATE 5,13:PRINT 420 LOCATE ,14:PRINT 

"3 - TABLA BASE DE SPACE$(39) 570 

CONVERSION" 430 IF S$<>"" THEN LOCATE ,14 580 

290 GOSUB 320:PRINT :PRINT TAB(1 8-LEN(N$) ) 590 

"PULSE OPCION DESEADA" N$ TABC20) "NUMERO 600 

300 P$=INKEY$:IF P$<>"1 " ERRONEO":GOTO 360 

AND P$<>"2" AND P$ <>"3" 440 LOCATE ,14: PRINT 610 

THEN GOTO TABU 8-LEN(N$) ) N$ 

310 ON VAL(P$) GOTO 330,460, TAB(20);N 

630 450 GOTO 360 620 

320 LOCATE ,22:PRINT SPACE$ 460 'ARABES A ROMANOS 630 

(39) : LO CATE, 22 rRETURN: 470 CLS :L0CATE,5 : PRINT 

'BORRADO LINEA 22 TABC5) "NUMERO ARABE 640 

330 'ROMANOS A ARABES NUMERO ROMANO" 

340 CLS:L0CATE,5: PRINT TAB 480 PRINT TAB(5) "============ 

(5) "NUMERO ROMANO =============": PRINT 650 

NUMERO ARABE" 490 GOSUB 320 : INPUT"NUMERO 

350 PRINT TAB (5 )"============ (0<N<3999) 0=MENU ";N: 660 

============" : PRINT N=INT(N) : IF N=0 THEN 

360 GOSUB 320-.INPUT 250 670 

"NUMERO ROMANO (P=MENU)"; 500 N=INT(N) : IF N<1 OR N>= 680 

N$: IF N$="P" THEN 250 4000 THEN 490 

370 S$=N$:N=0 510 N$="" 

380 FOR 1=30 TO 1 STEP-1 : 520 R=N: C(1 )=1000*INT(R/1000) 690 

S=INSTR(S$,T$(D) :R=R-C(1) :C(2)=100*INT 700 

390 IF S$="" THEN I=1:G0T0 ( R/1 00) : R=R-C(2) : C(3)=1 O* 71 

410 INT(R/10):C(4)=R-C(3) 

400 IF S=1 THEN N=N+T(I): 530 FOR L=1 TO 4 

L=LEN(S$)-LEN(T$(D) : 540 FOR 1=1 TO 30 720 

S$=RIGHT$(S$,L) 550 S$="" 

410 NEXT I 560 IF T(I)=C(L) THEN S$=T$ 730 



(I):I=30 
NEXT I 
N$=N$+S$ 
NEXT L 

LOCATE, 9:PRINT SPACE$ 
(39) 

LOCATE 13,9:PRINT USING 
"####";N;:PRINT 
TAB(20) N$ 
GOTO 490 

'TABLA BASICA DE 
CONVERSION 

CLS: PRINT TAB(5) "TABLA 
BASICA DE CONVERSION": 
PRINT 

PRINT TAB(5) "NUMERO ARABE 

NUMERO ROMANO" 

PRINT TAB(5) "============ 

=============": PRINT 

FOR 1=1 TO 30 
PRINT TAB(5) USING 
"###########";T(I);:PRINT 
TAB(20) T$(I) 
FOR K=1 TO 300:NEXT K 
NEXT I :PRINT:PRINT 
GOSUB 320:PRINT 
"CUALQUIER TECLA PARA 
RETORNO A MENU " 
P$=INKEY$:IF P$=""THEN 
GOTO 720 ELSE 250 
STOP 




MULT1-GEST10N.2 DISK 

• CONTROL DE STOCKS (9.000 ARTICULOS) 

• CONTROL DE MINIMOS 

• RELACION DE PEDIDOS 

• INVENTARIOS 

• FACTURACION — ALBARANES 

— FACTURAS 

— RECIBOS 

• PRESUPUESTOS — PERSONALES 

— CLIENTES 

• EMISION DE PEDIDOS 

• GESTION DE CLIENTES (500 ITEMS.) 

• CONTABILIDAD E/S 

• ACUMULADOR DE IVA + DEDUCCION 

• BALANCES ANUALES 

• PARA INFORMACION Y PEDIDOS: 

C/. TORROELLA DE MONTGRI, 21, ENTLO.-D 
TEL. (93) 346 84 63 - TELEX 98886 TPT-E 
08027 BARCELONA 




CONTABILIDAD 



= APLICACIONES INFORMATICA 

GRAPH-CALC.2 DISK 



• CONTABILIDAD GENERAL 

• 2.937 SUBCUENTAS 

• FICHERO DE 93 CONCEPTOS 

• BALANCES PRESUPUESTARIOS 

• 37.000 APUNTES 

• HARD-COPY 

• ENLAZA CON MULTI-GESTION 

• PLAN CONTABLE ESPAÑOL 

• PLAN RECONFIGURABLE 

• LISTADOS DE CUENTAS 

• LISTADOS DE SUBCUENTAS 

• LISTADOS DE RESUMENES 



GRAFICAS DE BARRAS 
GRAFICAS LINEALES 
GRAFICAS CIRCULARES 
CONTROLES DE IMAGEN 
HARD-COPY (2 TAMAÑOS) 
400 FICHEROS NUMERICOS 
INFORMES DE FICHEROS 
CALCULOS ESTADISTICOS 
ENLAZA CON MULTI-GESTION 



BUSCAMOS 
DISTRIBUIDORES 
PARA TODA 
ESPAÑA 



TOMANDO UN BAÑO 



La siguiente rutina se utiliza cuan- 
do el aventurero decide cruzar el río a 
nado: 

1400 REM ** RUTINA NADO 

1410 IF L<>7 THEN PRINT 

"EN QUE?! !":G0T0 330 

1420 IF 0B(2)=-1 THEN PRINT 
"QUE DESASTRE, TE HAS 
HUNDID0":G0T0 1360 

1430 IF 0B(4)>-1 THEN PRINT 
"HAS ENCONTRADO UNA 
PIST0LA":0B(4)=-1 :G0T0 3 
30 

1440 PRINT"ESTAS TODO MOJADO" 
:G0T0 330 

En la línea 1410 se comprueba si el 
aventurero está en el río. De no ser 
así, presenta la pregunta DONDE? 
Como en esta aventura no hay pisci- 
nas ni océanos, no hay que preocupar- 



se de poner una rutina que se ocupe 
de las posibles respuestas a esta pre- 
gunta. No aparece ningún mensaje 
más y el juego continúa. 

Si el aventurero intenta lanzarse al 
río a nadar cargado con el ladrillo, se 
muere: QUE DESASTRE, TE HAS 
HUNDIDO. Después de hundirse, 
puede reencarnarse cuando se le pre- 
gunta si quiere intentarlo otra vez. 

En la línea 1430 se comprueba si el 
aventurero lleva la pistola, de no ser 
así se modifica la matriz de situación 
de objetos y aparece el mensaje HAS 
ENCONTRADO UNA PISTOLA. 

Si el aventurero ya ha encontrado la 
pistola y por cualquier razón intenta 
cruzar de nuevo el río a nado, la línea 
1440 le dice ESTAS MOJADO. 

AL FIN, LA JOYA 

El aventurero sólo puede hallar la 
fabulosa joya en la bolsa de canicas 



que ha encontrado. El paso necesario 
para ello es que vacíe dicha bolsa, con 
lo que aparecerá la joya. He aquí la 
correspondiente rutina: 

1450 REM ** RUTINA VACIO 
1460 IN=0:IF N$=LEFT$( "BOLSA' 

,LEN(N$)) THEN IN=1 
1465 IF IN<>1 THEN PRINT 

"NO PUEDES VACIARLO": 

GOTO 330 
1470 IF 0B(1)<>-1 THEN G=1 

:G0T0 1270 
1480 PRINT "LAS CANICAS 

RUEDAN POR EL SUELO" 

:0B(5)=L:G0T0 370 

Esta rutina es llamada cada vez que 
el aventurero ordena VACIAR algo. 
En la línea 1460 se comprueba si ese 
algo es una bolsa. Si no es así, (N$ <> 
«BOLSA»), aparece el mensaje NO 
PUEDES VACIARLO. La línea 1470 
es para comprobar si la bolsa está en- 
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tre las pertenencias del jugador 
(OB(l)o -1). De no ser así, en vez 
de presentar un nuevo mensaje, el 
programa salta a la línea 1270 para 
aprovechar el mensaje NO LO TIE- 
NES, que ya ha sido incluido en el 
programa. 

Si la bolsa está presente, el progra- 
ma llega a la línea 1480. Aparece el 
mensaje: LAS CANICAS RUEDAN 
POR EL SUELO, y se ajusta la ma- 
triz de situación de objetos de forma 
que la joya está ahora en la situación 
actual. 



No hace falta presentar mensaje al- 
guno para esto, ya que al saltar a la lí- 
nea 370 se puede utilizar el mecanis- 
mo habitual de descripción larga. En 
la pantalla aparece pues la descripción 
que pusiste en la matriz de descripción 
larga (línea 240). 

ENCENDIENDO LA LAMPARA 

Cuando el aventurero quiere ver las 
salidas de que dispone para abando- 
nar la habitación oscura, necesita en- 
cender la lámpara. Si no lleva consigo 



la lámpara, no tendrá forma de disi- 
par la oscuridad y se quedará allí atas- 
cado. Aquí tienes la rutina de encen- 
dido de la lámpara: 



1490 
1500 



1505 



1510 



REM ** RUTINA LUZ 
IN=0:IF N$=LEFT$ 
( "LAMPARA",LEN(N$) ) 
THEN IN=1 

IF IN<>1 THEN PRINT 
"NO PUEDES HACERLO": 
GOTO 330 

IF 0B(6)<>-1 THEN G=6 
:G0T0 1270 
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1520 IF LA=1 THEN PRINT 
"YA ESTA ENCENDIDA" 
:G0T0 330 

1530 LA=1 :PRINT"0K":G0T0 330 

Cada vez que el aventurero ordene 
LUZ, se llamará a esta rutina. La lí- 
nea 1505 es muy parecida a la corres- 
pondiente línea de la rutina de «vacia- 
do», comprobando si el aventurero ha 
mencionado la lámpara. El mensaje 
NO PUEDES HACERLO, aparece 
exactamente de la misma forma que 
antes. 

La línea 1520 comprueba si el indi- 
cador de «lámpara encendida», LA, 
ha sido activado, y le dice al aventu- 
rero si ya está encendida la lámpara. 

El indicador de lámpara encendida 
se pone a 1 en la línea 1530, que tam- 
bién presenta el mensaje O.K. 



EL FINAL ESTA CERCA 



En el salón del trono está colgando 
la cadena y el aventurero acaba de en- 
trar en escena. 

¿Qué tiene que hacer? ¿Qué pasa si 
se tira de la cadena? Aquí tienes una 
rutina en la que se contemplan las con- 
secuencias: 

1300 REM ** RUTINA TIRO 
1310 IN=0:IF N$=LEFT$ 

("CADENA", LEN(N$)) THEN 
IN=1 

1315 IF IN=1 AND L<>24 THEN 

PRINT "NO SUCEDE NADA": 

GOTO 330 
1320 IF IN<>1 THEN PRINT "NO 

PUEDES TIRAR DE ESO!" 

:G0T0 330 
1330 IF 0B(5)=-1 THEN 1340 
1335 PRINT "AL TIRAR DE LA 

CADENA HAS SID0":PRINT 

"ARRASTRADO POR EL AGUA 

Y" 

1338 PRINT "DESAPARECES POR 
EL EXCUSADO, CAÑERIA" 
:PRINT"ABAJ0":G0T0 1360 

1340 REM ** FIN DE LA 
AVENTURA 

1350 PRINT "BIEN HECHO, 

ACABAS DE COMPLETAR LA": 
PRINT"AVENTURA" 



1360 PRINT:PRINT"OTRO JUEGO 

(S/N)?" 
1370 A$=INKEY$:IF A$<>"S" 

AND A$<>"N" THEN 1370 
1380 IF A$="S" THEN RUN 
1390 PRINT: PRINT: END 

La línea 1310 contempla la posibili- 
dad de que el aventurero haya cogido 
la cadena fuera del salón del trono an- 
tes de tirar de ella. Dirá al aventure- 
ro: NO SUCEDE NADA. 

Si el aventurero intenta tirar de 
cualquier otro objeto de la aventura, 
recibe el mensaje: NO PUEDES TI- 
RAR DE ESO. contenido en la línea 
1320. 

Después ocurre lo inimaginable. Si 
el aventurero se encuentra en el salón 
del trono, pero no ha encontrado la 
joya, se le envía el mensaje: AL TI- 
RAR DE LA CADENA, HAS SIDO 
ARRASTRADO POR EL AGUA Y 
DESAPARECES POR EL EXCU- 
SADO CAÑERIA ABAJO. Y de 
esta forma termina el juego. 

Si por el contrario el jugador de la 
aventura sí ha encontrado la joya y 
tira de la cadena en el salón del tro- 
no, ninguna de las líneas anteriores 
tendrá efecto y podrá exhalar un sus- 
piro de alivio cuando lea: BIEN HE- 
CHO, ACABAS DE COMPLETAR 
LA AVENTURA 

Por último, en las líneas 1360 a 1380 
se presenta una opción para jugar otra 
vez. Realmente sólo resulta útil en 
caso de que el aventurero haya que- 
dado atrapado en la mazmorra o haya 
sido engullido por el inodoro. 



LAS INSTRUCCIONES 



En este momento ya dispones de un 
juego de aventuras que funciona a la 
perfección, por lo que ha llegado el 
momento de darle los últimos toques. 

Si no se le dan instrucciones, el 
aventurero no podrá saber el objetivo 
de todos tus esfuerzos, ni lo que tiene 
que hacer. Antes de añadirle a un jue- 
go el conjunto de instrucciones, com- 
prueba la cantidad de memoria que te 
queda disponible. Si queda poca, es 
hora de eliminar todas las sentencias 
REM, aunque puede ser que ello te 



obligue, para evitar errores, a cambiar 
la numeración de los GOSUB que en- 
vían el programa hacia ellas. 

La cantidad de instrucciones a in- 
cluir es algo que conviene considerar 
con cuidado. Tienes que tomar una 
decisión dependiente de la cantidad de 
memoria disponible, de cuántas suge- 
rencias quieras dar en cada etapa, y de 
otras consideraciones tales como el 
formato de la pantalla de tu máquina, 
que afectará en gran medida al grado 
de detalle que puedas dar antes de te- 
ner que pasar a otra pantalla. 

Como la aventura de INPUT es muy 
sencilla, la rutina de instrucciones es 
corta y contiene poca información. 
Aquí la tienes: 

10 PRINT"QUIERES VER LAS 

INSTRUCCIONES?" 
20 A$=INKEY$:IF A$="" 

THEN 20 

30 IF A$="S" THEN GOSUB 6000 

6000 REM ** INSTRUCCIONES 

6010 PRINT: PRINT"A CAUSA DE 

UNA CRISIS ECONOMICA HAS 

":PRINT"HUID0 DE TU PAIS 
ii 

6020 PRINT: PRINT"LA SOLUCION 
A TUS PROBLEMAS ESTA 
EN" 

6025 PRINT"ENC0NTRAR EL GLOBO 

OCULAR," 
6027 PRINT"PASAR AL FINAL Y 
SUPERAR" 

6029 PRINT"LA PRUEBA DE 
INICIATIVA" 

6030 PRINT: PRINT" EVITA A TODA 
COSTA AL INSPECTOR 
FISCAL" 

6040 PRINT:PRINT"PULSA UNA 

TECLA" 
6050 A$=INKEY$:IF A$="" 

THEN 6050 
6060 RETURN 

Ahora ya puedes almacenar 
(SAVE) en cinta la aventura comple- 
ta. 

En el próximo capítulo, veremos la 
forma de utilizar la estructura que he- 
mos seguido a lo largo del juego del 
Ojo Precioso de la Imagen Purpura, 
para que sirva de base a tus propias 
aventuras. 
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V 



AVENTURAS: 
EL SIGUIENTE PASG 



En este momento tienes almacena- 
do en cinta un juego completo de 
aventuras que funciona perfectamen- 
te. Al ir recorriendo todo su desarro- 
llo, has visto cómo se van combinan- 
do todos los elementos que la consti- 
tuyen, partiendo de un bosquejo muy 
rudimentario de la historia. En este 
capítulo veremos la manera de utilizar 
dicho juego como punto de partida 
para el desarrollo de tus aventuras do- 
mésticas. 

Aunque en los anteriores capítulos 
hemos visto algunas sugerencias sobre 
posibles variaciones del juego, segui- 
damente nos ocuparemos con más 
profundidad de la forma en que lo 
puedes hacer. 

No siempre será posible ser muy es- 
pecífico acerca de las alteraciones a in- 
troducir, ya que muchas de ellas de- 
penderán totalmente de la aventura 
que estés escribiendo, pero muchas de 
ellas serán muy fáciles de incorporar 
siguiendo las instrucciones que vere- 
mos más adelante. Al principio puede 




que algunas de las técnicas te desani- 
men un poco, pero si empiezas tratan- 
do de escribir una aventura corta y 
sencilla, en seguida captarás los prin- 
cipios básicos. Durante las primeras 
fases no pretendas hacer demasiadas 
alteraciones al mismo tiempo; es me- 
jor que te limites a ir recorriendo sis- 
temáticamente las secciones de este 
artículo y no tendrás muchos proble- 
mas. 



TEMAS PARA TU PROPIA 
AVENTURA 



Antes de ponerte a escribir un jue- 
go de aventuras propio, tienes que in- 
ventarte un bosquejo de la historia 
que te sirva como punto válido de par- 
tida. 

La estructura argumental de las 
aventuras de mayor éxito suele ser 
bastante tradicional: hay un principio, 
una fase intermedia, y un final, con 
una secuencia impuesta por el orden 
en que se quiere que aparezcan los 
enigmas que haya que resolver. Sin 



Las aventuras se parecen al tabaco: 
producen hábito; además las puedes 
comprar ya empaquetadas o liar las tu- 
yas propias. Aquí verás la manera de 
usar la aventura como base para desa- 
rrollar la tuya propia. 



embargo es una suerte que no seas una 
Agatha Christie a la hora de escribir 
juegos de aventuras, ya que aunque 
hay montañas de ideas posibles, su 
realización no resulta fácil en las pri- 
meras etapas. A continuación presen- 
tamos unas cuantas sugerencias que 
harán más fácil tu labor. 

Podrías estructurar la aventura en 
torno a una novela policíaca. El pun- 
to de partida podría ser una habitación 
en la que hay un cadáver con un pu- 
ñal clavado, y el objetivo final del jue- 
go sería encontrar quién es el asesino. 
Tal vez prefieras utilizar el personaje 
de un mayordomo en lugar del inspec- 
tor de hacienda. Su papel podría con- 
sistir en ayudar al aventurero, o en es- 
torbarle. 

Hay varias maneras de utilizar un 
argumento de naufragios en la aven- 
tura. Puedes hilvanar una historia tra- 
dicional de náufragos y piratas, o ha- 
cer que tu aventurero sea el único su 
perviviente de un accidente aéreo./ 
prefieres situar tu aventura en el 

fui;/ 

turo, puedes montar un desastre es*^ 
pacial que haga que el aventurero 
se encuentre abandonado en un 
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planeta hostil a años luz de su civiliza- 
ción y con una nave espacial averiada. 
El objeto de la aventura sería en este 
caso encontrar alguna vía de escape. 
Los lugares pueden muy bien ser hos- 
tiles, y hay muchas posibilidades de 
encontrar rutas de escape imaginativas 
(y escondidas). 

Otras aventuras de este tipo pueden 
consistir en escaparse de Alcatraz, o 
Sing Sing, o la Isla del Diablo, el nom- 
bre que más te guste. Puedes encon- 
trar fuentes de inspiración en cual- 
quiera de los múltiples libros sobre 
evasiones famosas que han sido publi- 
cados, y si puedes hacerte con un pla- 
no real del lugar, resultará mucho me- 
jor el planteamiento de los lugares de 
tu aventura. 

Otro de los temas tradi- 
cionales, que constituirá las 
delicias de muchos diseña- 
dores de aventuras, son los 
espías; también se incluye 
aquí el espionaje industrial, 
por ejemplo el robo de un 
diseño de ordenador de la 
competencia. 




También puedes sacar multitud de 
temas de la Historia. Por ejemplo las 
Cruzadas son una evidente fuente de 
inspiración para los juegos de aventu- 
ras; lo mismo puede decirse de cual- 
quier campaña militar. 

Por último, un tema que se ha con- 
vertido en tópico: una aventura basa- 
da en un holocausto nuclear. Las po- 
sibilidades son enormes: mutantes. 
búsqueda de los trajes antirradiación. 
grupos de bandoleros que merodean 
muriéndose de hambre, intentando 
encontrar comida y agua sin contami- 
nar, etc. etcetc. 



¿MAS LUGARES? 



La aventura de INPUT es mucho 
más corta de lo que suele ser la longi- 
tud normal de estos juegos, por lo que 
pronto te encontrarás que tus propios 
juegos de aventuras superan amplia- 
mente a este programa. 

Sigue las instrucciones de las pági- 
nas 38 a 43 para obtener una retícula 
adecuada a tu programación. La retí- 
cula de INPUT tiene 6x4 lugares, en 
total 24, de los que sólo se utilizan 12. 
Si decides trabajar adaptándote a esta 
retícula, puedes hacer una de dos co- 
sas: o bien modificas el programa exis- 
tente, lo que representa menos traba- 
jo aunque es más difícil de descifrar, 
o tecleas un programa completamente 
nuevo, lo cual representa algo más de 
esfuerzo, aunque puede que te resulte 
menos confuso. Dependiendo de la 
elección que hagas, puedes cargar 
(LOAD) el programa existente desde 
la cinta, o, si tienes una impresora, lis- 
tarlo en papel. Las adaptaciones que 
siguen a continuación dependen del 
tamaño de la retícula que te resulte 
útil. Si tienes 24 lugares o menos, pue- 
des usar la retícula existente tal como 
está, dibujando el mapa sobre la mis- 
ma. Si tu mapa requiere una retícula 
mayor, dibújala y numérala de la for- 
ma que ya sabes. 

Después de organizar la retícula, 
puedes empezar a introducir tu propio 
juego de descripciones de lugares en 
la máquina. Tienen que sustituir a las 
descripciones de los lugares existentes 
a partir de la línea 5000. 



Cada descripción de un lugar ha de 
ir seguida con la línea que contiene las 
posibles salidas del mismo, tal como 
ocurría con el programa original. Las 
variables N. S. E y O corresponden a 
Norte. Sur. Este y Oeste. Pueden to- 
mar los valores y 1; siginifica que 
no hay salida en esa dirección, mien- 
tras que 1 significa que sí hay una sa- 
lida. El esfuerzo extra de teclear unas 
cuantas líneas suplementarias de sen- 
tencias REM con los números de los 
lugares es algo que te va a merecer la 
pena. 

El siguiente paso es modificar las 
sentencias ON ... GOSUB de las lí- 
neas 330 a 350. El primer número que 
sigue a la sentencia GOSUB de la lí- 
nea 330 es el número de línea en que 
el ordenador encontrará la descripción 
del lugar 1. Si no hay un lugar 1 en la 
aventura — no tienes porqué utilizar 
todas las casillas de la retícula — se in- 
troduce en su lugar un cero. El si- 
guiente número corresponde al núme- 
ro de línea del segundo lugar, y así su- 
cesivamente. Tiene que haber un nú- 
mero para cada uno de los lugares de 
la retícula. 



MOVIMIENTO 



Si has diseñado un juego basado en 
una retícula de tamaño diferente al de 
la utilizada en la aventura, necesitarás 
modificar las rutinas de movimiento 
de las líneas 1000 a 1040. Más especí- 
ficamente, si la retícula no tiene una 
anchura de seis cuadros, tendrás que 
cambiar las líneas de Norte y Sur (lí- 
neas 1010 y 1030) , ya que para cam- 
biar de fila lo que hacías era sumar o 
restar seis. Para hacer la modificación, 
no tienes más que contar de cuántas 
casillas se compone la fila de tu retí- 
cula, y sustituir el número 6 por el va- 
lor del nuevo ancho. 



LOS OBJETOS 



Los objetos de tu nueva aventura 
serán diferentes de los de la aventura 
de INPUT, por lo que es probable que 
tengas que hacer cambios bastante ex- 
tensos en las líneas 160 a 260. 



Cuenta el número de objetos que 
vayas a utilizar en tu nueva aventura. 
Este número determina el valor de NB 
y debe ser el primer dato de la línea 
200, siendo utilizado para dimensionar 
las matrices de la línea 180, y para los 
bucles FOR ... NEXT de otras partes 
del programa. 

Aunque resulta más claro utilizar 
una línea de programa separada para 
cada objeto, si has escrito un juego 
que utilice muchos objetos, puede que 
te resulte más cómodo poner más de 
un objeto en cada línea. Cualquiera 
que sea la forma en que decidas po- 
nerlos, tus datos deben guardar el or- 
den correcto, ya que cada uno de los 
tres grupos de datos forman parte de 
matrices diferentes. El orden es el si- 
guiente: número de lugar, descripción 
corta y descripción larga. Si el objeto 
no aparece hasta más tarde en la aven- 
tura, tal vez debido a que el aventure- 
ro lo encuentra, o es de aparición alea- 
toria, como es el caso del inspector de 
hacienda, el correspondiente número 
de lugar será un cero. 



NUEVAS PALABRAS 



Haz una lista de todas las instruc- 
ciones que el ordenador debe esperar 
recibir del aventurero durante el jue- 
go. Dicha lista incluirá palabras senci- 
llas, tales como las órdenes y las pala- 
bras AYUDA e INVENTARIO, y ór- 
denes formadas por dos palabras, ta- 
les como COGER LAMPARA o 
MATAR POSADERO. 

Las entradas a base de dos palabras 
se desdoblan en V$ y N$, verbos y 
nombres, aunque esta denominación 
no siempre corresponda estrictamente 
a la definición gramatical. Tu interés 
debe centrarse en todas las palabras 
sencillas y en la primera palabra de 
cada pareja. Para los fines del progra- 
ma, las primeras palabras son los ver- 
bos, V$. Agrupa los diferentes verbos 
con arreglo a su significado, por ejem- 
plo COMER y MASTICAR, o bien 
OLER y HUSMEAR. Cada uno de 
estos grupos necesitará un número 
que también deberás anotar. No im- 
porta cómo se asigne ese número; bas- 
ta que sepas que cada número se re- 
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fiere a un determinado grupo de pala- 
bras. 

Ya puedes modificar el programa . 
La rutina de manejo de verbos está en 
las líneas 110 a 150. Los verbos y sus 
correspondientes números se introdu- 
cen como datos en las líneas 140 y 150, 
como pares, cuyo primer componente 
es el número y el segundo el verbo. 

No te olvides de volver a dimensio- 
nar las matrices de la línea 120 y de 
ajustar el bucle FOR ... NEXT de la 
línea 130 adaptándolo al número total 
de objetos que quieras usar. 

RUTINAS DE VERBOS 

Cada una de las categorías separa- 
das de verbos, es decir, cada uno de 
los números, requerirá una rutina se- 
parada. 

Es difícil dar instrucciones explíci- 
tas acerca de la forma de escribir es- 
tas rutinas, debido a que una buena 
parte de las rutinas de cualquier aven- 
tura no valdrá para las demás. 

Hay algunas rutinas que se pueden 
utilizar en cualquier aventura, tales 
como las de COGER y DEJAR. Pue- 
den utilizarse sin cambios en cualquier 
juego de aventuras que escribas, a me- 
nos que sea muy innovador. De una 
forma análoga, la rutina de INVEN- 



TARIO (líneas 1070 a 1 130) es la mis- 
ma para cualquier aventura, por lo 
que puedes utilizarla sin cambios en la 
medida en que la matriz es la misma 
y que NB — el número de objetos — 
tiene el mismo significado en la nueva 
aventura. 

Otra rutina, que podría ser de apli- 
cación sería la rutina de encendido de 
la lámpara, porque el encender y apa- 
gar lámparas y linternas es una ocupa- 
ción muy frecuente en los juegos de 
aventuras. Dicha rutina está situada 
en las líneas 1490 a 1530. 

Probablemente las demás rutinas no 
son lo bastante generales como para 
trasladarlas en bloque, pero hay algu- 
nos puntos que conviene que tengas 
en cuenta cuando escribas tus propias 
rutinas de verbos. Básicamente las ru- 
tinas se ponen ahí para com- 
probar si el aventurero trata 
de hacer algo con el objeto 
correcto y en el lugar adecua- 



do. Si el lugar está equivocado, el pro- 
grama presentará un mensaje de que 
eso es apropiado para ciertas situacio- 
nes, pero AHI NO. Ocurra lo que 
ocurra, cerciórate de que el aventure- 
ro conoce cuál fue el efecto de su úl- 
tima instrucción, en otras palabras, 
para cualquier cosa que se le diga a la 
máquina que haga, debe aparecer en 
pantalla un mensaje de respuesta. 

Cuando tengas lista tu rutina de ver- 
bos, introdúcela en el programa. Si 
numeras el programa de forma análo- 
ga a la aventura de INPUT. el lugar 
para esta rutina estará entre las líneas 
1070 y 2999. 

El ordenador tiene que poder selec- 
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donar la rutina correcta de acuerdo 
con el verbo utilizado por el aventu- 
rero. Para que pueda hacer esto tie- 
nes que modificar la línea 510. 

Lo único que tienes que hacer para 
ello es observar tu lista de números de 
verbos. A continuación, utilizando ese 
orden numérico, pon después de la 
sentencia ON ... GOTO, las líneas de 
comienzo de la rutina correspondien- 
te a cada verbo. 



RUTINA DE AYUDA 

La rutina final a la que debes dedi- 
car tu atención es la de AYUDA. 
Considera en qué puntos de tu aven- 
tura podría ser necesaria una sugeren- 
cia, y utiliza una línea IF ... THEN 
para hacerla. 

Hay otros detalles que puede que 
requieran modificación, dependiendo 
de las características de tu aventura; 
tal es el caso de la línea 320, que hace 
que aparezca el inspector de hacien- 
da. No pierdas de vista tampoco el lu- 
gar de comienzo, que se establece en 
la línea 280. 



VARIABLES Y MATRICES 

Ahora que ya sabes «meterte den- 
tro» del programa de la aventura, aquí 
tienes una lista de las variables y ma- 
trices junto con el uso a que se desti- 
nan: 

R$() matriz de verbos y respuestas. 

R() matriz de números de respues- 
tas. 

Los elementos correspondientes de 
las dos matrices anteriores son los pa- 
res de verbos y los significados. 

OB() matriz con el número de lu- 
gar para cada objeto. 



OB$() matriz de descripciones cor- 
tas de los objetos. 

SI$() matriz de descripciones largas 
de los objetos. 

Los elementos correspondientes de 
las tres matrices anteriores contienen 
información relativa a cada objeto en 
particular. 

NB número de objetos de la aven- 
tura. Se utiliza para dimensionar las 
matrices y en los bucles FOR ... 
NEXT. 

L situación actual del aventurero. 

LA indicador de estado de la lám- 
para. Se pone a 1 cuando está encen- 
dida y a cuando está apagada. 

TA indicador del inspector de ha- 
cienda. 

N,S,E,0 direcciones de salida. Se 
ponen a 1 si existe una salida en esa 
dirección y a si no existe. 



1$ entrada total antes de ser desglo- 
sada en verbos y nombres. 

V$ parte de verbos de 1$. 

N$ parte de nombres de 1$. 

I número correspondiente al signifi- 
cado de un determinado verbo. Se uti- 
liza para dirigirse a la rutina correcta, 
que es la que se ocupa de ese verbo 
en particular. 

IN número de objetos del INVEN- 
TARIO. 

A$ respuesta a la pregunta QUIE- 
RES PROBAR OTRA VEZ? 

G número de objeto abandonado; 
G es un elemento de la matriz OB. 
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LA MEMORIA DE VIDEO DE MSX. 
LOS REGISTROS DEL V.D.P. 



El control de la memoria de vídeo y 
de la imagen de pantalla recae sobre el 
chip VDP. Vamos a concluir esta serie 
de artículos sobre la memoria de vídeo 
con un análisis en profundidad de los 
registros de este chip (VIDEO DIS- 
PLAY PROCESSOR). 

En realidad los registros del VDP 
tienen escaso interés para la progra- 
mación en BASIC. Sin embargo pue- 
den serte útiles si programas en códi- 
go máquina, ya que son el único me- 
dio de, por ejemplo, cambiar el modo 
de pantalla mediante el uso de las ru- 
tinas de la BIOS (Basic Input Output 
System). 

El VDP (Video Display Processor) 
es un procesador (lo mismo que el 
Z80) que llevan todos los ordenadores 
MSX para el manejo de la memoria de 
vídeo. Esto permite al procesador Z80 
no tener que ocuparse de esa función 
y tener más tiempo para otras cosas. 

El nombre completo del VDP es 
TMS9918 y ha sido fabricado por Te- 
xas Instruments (El VDP de los orde- 
nadores de la segunda generación 
MSX es diferente a éste). Al progra- 
mar en C.M. necesitamos acceder al 
VDP tanto para escribir en sus regis- 
tros como para leer o escribir en los 
bytes de la VRAM. 

El VDP tiene 9 registros de los que 
8 son de sólo escritura, es decir, en 
ellos sólo podemos escribir, y uno de 
sólo lectura, en el que sólo podemos 
leer. No obstante, el sistema operati- 
vo guarda una copia de los 8 registros 
de escritura en el área de trabajo del 
sistema, por lo que podemos «leer» lo 
que hay en esos 8 registros. Al progra- 
mar en C.M. es conveniente que ano- 
tes los valores que toman los registros 
en cada momento, porque no es posi- 
ble leerlos. (Si no entiendes algo de lo 
que te estamos diciendo, no te preo- 
cupes; hablaremos del área de trabajo 
del sistema al hablar de la BIOS). 



Veremos ahora para qué sirve cada 
uno de dichos registros. 



EL REGISTRO 



Los 8 registros de sólo escritura van 
numerados del al 7. Podemos acce- 
der a los registros del VDP mediante 
la variable reservada del BASIC VDP 
(1) en la que I puede valer 0, 1, 8. 
Podemos escribir en los registros al 
7 haciendo 

VDP(I) = Expresión 

donde Expresión es cualquier ex- 
presión válida en BASIC. También 
podemos leer lo que hay en los 9 re- 
gistros mediante 

PRINT VDP(I) 

(En realidad, como ya hemos dicho, 
no leemos los registros, sino la copia 
de los mismos que el sistema mantie- 
ne en el área de trabajo). 

Cada registro del VDP tiene 8 bits. 
El programa que adjuntamos te per- 
mitirá conocer en cualquier momento 
el contenido de los 9 registros del 
VDP. El registro puede tomar los 
valores de la figura. En esta figura, to- 
dos los ceros indican que tales bits de- 
ben estar SIEMPRE a 0. El bit está 
preparado para la conexión de un 
VDP externo, de otro ordenador. 
Puedes hacer este bit igual a l, pero 
lo único que conseguirás es que se dis- 
torsione la imagen en el monitor. 
Como ves, en principio poco interés 
tiene este bit, sin embargo, te permite 
utilizar el VDP de otro ordenador, y 
por tanto su monitor. 

El bit 1 (M3) tomará el valor 1 
cuando estés trabajando en SCREEN 
2. Si pones este bit a 1 estando en 
SCREEN 0, sólo conseguirás que te 
aparezcan cosas extrañas en la panta- 
lla. No basta con hacer este bit igual 
a 1 para estar en SCREEN 2. Hace 
falta, además actualizar todos los re- 
gistros del VDP, y los 16K de la 



VRAM. Por tanto este bit sólo tiene 
interés al programar en C.M. 



EL REGISTRO 1 



De los 8 bits del registro 1, sólo el 
bit n° 2 debe mantenerse a (ver figu- 
ra). Las funciones que realizan el res- 
to de los bits son las siguientes: 

Bit (MAG): Define el tamaño de 
sprites. Si MAG=0, los puntos del 
sprite tienen un tamaño 1 x 1 (sin am- 
pliar), y si MAG=1, tienen un tama- 
ño 2 x 2 (ampliados). Prueba el pro- 
grama 2 y verás para qué sirve el bit 
MAG. Esto no lo podías hacer con la 
instrucción SCREEN, ya que al ejecu- 
tarse ésta, se borra de la memoria de 
vídeo toda la información referente a 
sprites. 

PROGRAMA 2 

10 SCREEN 1 

20 F0R 1=1 T0 8 

30 READ A 

40 A$=A$+CHR$(A) 

50 NEXT 

60 SPRITE$(1)=A$ 
70 PUT SPRITE 1,(100,100), 
15,1 

80 VDP(1)=VDP(1) 0R 1 
90 F0R 1=1 T0 200 
100 NEXT 

110 VDP(1)=VDP(1) X0R 1 
120 F0R 1=1 T0 200 
130 NEXT 
140 GOTO 80 

150 DATA 255,129,129,129, 
129,129,129,255 

Bit 1 (SIZE): Determina si el sprite 
es de 8 x 8 ó de 16 x 16. Si SIZE = 
0, todos los sprites serán de 8 x 8 y si 
SIZE = 1 serán de 16 x 16. Como en 
el caso anterior, también puedes cam- 
biar el valor de SIZE dentro de un 



40 INPUT 




EL VDP EN ACCION 



LOS REGISTROS 



programa sin necesidad de utilizar 
SCREEN. Ejecuta el programa 3. 

PROGRAMA 3 

10 SCREEN 1 
20 FOR 1=0 TO 3 
30 FOR J=1 TO 8 
40 READ A 

50 A$(I)=A$(I)+CHR$(A) 
60 NEXT 

70 SPRITE$(I)=A$(I) 
80 NEXT 

90 PUT SPRITE 0,(100,100) 
,15,0 

100 VDP(1)=VDP(1) OR 2 
110 FOR 1=1 TO 200 
120 NEXT 

130 VDP(1)=VDP(1) XOR 2 
140 FOR 1=1 TO 200 



150 NEXT 
160 GOTO 100 

170 DATA 255,128,128,128,128, 
128,128,128,128,128,128, 
128,128,128,128,255,255, 

M#M/I/Í#M,1,1 # 1,1, 

1,1,255 

Tampoco podías hacer esto con la ins- 
trucción SCREEN por la misma razón 
que antes. 

Bit 3 (M2): Este bit será igual a 1 si 
estamos en SCREEN 3. En caso con- 
trario será igual a 0. 

Bit 4 (MI): Será 1 en SCREEN y 
en caso contrario. Los tres bits MI, 
M2 y M3 (este último del registro 0) 
informan al VDP de cuál es el modo 
de pantalla actual. En resumen: 



EL TAMAÑO DE LOS SPRITE S 
INVERSION DE CARACTERES 
EL PROGRAMA 



M1 M2 M3 
SCREEN 10 
SCREEN 1 
SCREEN 2 1 
SCREEN 3 10 

Bit 5 (IE): Este bit es muy intere- 
sante porque desactiva las interrupcio- 
nes. Es decir, si IE=0, las interrupcio- 
nes están desactivadas. De esta forma, 
el ordenador no leerá el teclado y no 
habrá forma de interrumpir un progra- 
ma. Sólo conseguirás que el ordena- 
dor te responda haciendo un RESET 
o haciendo que IE sea igual a 1 en al- 
guna parte de tu programa. 

Para desactivar las interrupciones 
puedes hacer: 

VDP(l) = VDP(l) XOR 32 
y para volverlas a activar: 
VDP(l) = VDP(l) OR 32 
Bit 6 (BL): Cuando, estando en 
SCREEN 2, dibujas, por ejemplo, un 
círculo y lo rellenas de un color, pue- 
des observar cómo se ejecutan las ins- 
trucciones porque el dibujo se realiza 
con cierta lentitud. Sin embargo, pue- 
des hacer que el dibujo aparezca ins- 
tantáneamente haciendo uso del bit 
BL. Cuando BL=0, la pantalla no está 
activa y, aunque todo lo que envíes a 
la pantalla se escribirá en la VRAM, 
tú no lo verás hasta que vuelvas a ac- 
tivarla haciendo BL=1. Para desacti- 
var la pantalla usa la instrucción: 
VDP(l) = VDP(l)XOR64 
y para volverla a activar: 
VDP(l) = VDP(l) OR 64 

PROGRAMA 4 
10 SCREEN 2 

15 VDP(1)=VDP(1) XOR 96 
20 CIRCLE (100,100), 

70, ,,,1.4 
30 PAINT (100,100) 
40 VDP(1)=VDP(1) 0R 96 
50 GOTO 50 



INPUT 41 



XOR 255 
40 NEXT 

50 FOR 1=0 TO 959 

60 VPOKE 1,65 

70 NEXT 

80 VDP(4)=2 

90 FOR 1=1 TO 200 

100 NEXT 

110 VDP(4)=1 

120 FOR 1=1 TO 200 

130 NEXT 

140 GOTO 80 



EL REGISTRO 5 



Contiene información sobre la di- 
rección de comienzo de la tabla de 
atributos de sprites, de la que habla- 
mos en el número 5 de INPUT. Debes 
multiplicar su valor por 128 (2 ] 7). 
Así tenemos para los modos 1, 2 y 3: 
VDP(5) = 54, es decir que la direc- 
ción de comienzo de la tabla de atri- 
butos de los sprites es 54*128=6912. 

PROGRAMA 7 



El programa 4 hace lo que te aca- 
bamos de explicar. Observarás que 
hemos hecho: 

VDP(l) = VDP(l) XOR 96 
para desactivar la pantalla. En rea- 
lidad lo que hemos hecho es desacti- 
var la pantalla y las interrupciones 
(32+64=96), ya que si no desactivas 
las interrupciones, puedes pulsar 
CTRL-STOP con la pantalla desacti- 
vada y no podrás volver a activarla. (Si 
te ocurre esto escribe, aunque tu no 
lo veas: VDP(l) = VDP(l) OR 64, 
con lo que volvería a activarse la pan- 
talla). 

Por último, el bit 7 (VRAM) infor- 
ma al VDP del tamaño de la memoria 
VRAM instalada. Si VRAM=0, la 
VRAM es de 4 Kbytes y si VRAM= 1 , 
la VRAM es de 16K. No te conviene 
modificar este bit. 



EL REGISTRO 2 



Este registro contiene menos infor- 
mación que el registro 1. El número 
que contiene el registro 2, multiplica- 
do por 1024 (2 t 10), da como resulta- 
do la dirección de comienzo de la ta- 
bla de nombres. Dicho número es 
siempre menor que 16, por lo que sólo 
se hace uso del nibble bajo del byte co- 
rrespondiente al registro 2. Los valo- 
res que toma este registro inicialmen- 
te son: 

SCREEN 

SCREEN 1 6 

SCREEN 2 6 

SCREEN 3 2 

VDP (2) te permite, por ejemplo 
hacer uso de la memoria VRAM que 
no se utiliza en SCREEN 0. Por ejem- 
plo, después de ejecutar el programa 
5, escribe (en SCREEN 0) 
VDP(2) = 14 

PROGRAMA 5 

10 FOR 1=0 T0 23 
20 READ A 

30 VPOKE 14336+1, A 
40 NEXT 

50 DATA 69,110,116,130,114, 
97,116,101 ,32,99,111,110, 



32,34,73,110,112,117,116, 
32,77,83,88,34 

Verás que en la parte superior iz- 
quierda de la pantalla aparece nuestro 
mensaje. Teclea ahora (aunque no lo 
veas) VDP(2)=(), y habrás vuelto a la 
pantalla normal. 



EL REGISTRO 3 



Si multiplicas el número almacena- 
do en este registro por 64 (2 | 6) ten- 
drás la dirección de comienzo de la ta- 
bla de color. Esto sólo es práctico en 
SCREEN 1. En este modo de panta- 
lla es, normalmente 

VDP(3) = 128 



EL REGISTRO 4 



Este registro tiene información so- 
bre la tabla del generador de patrones 
del modo de textos o de gráficos. Si 
multiplicas VDP(4) por 2048 (2 f 11) 
tendrás dicha dirección, que en cada 
uno de los modos es: 

SCREEN VDP(4) VDP(4)*2048 



1 2048 

1 

2 3 6144 

3 

Observa el efecto que produce el 
programa 6. En las líneas 20 a 40 del 
mismo copiamos la tabla del genera- 
dor de patrones, que comienza en la 
dirección 2048 de la VRAM, en el blo- 
que de memoria VRAM que comien- 
za en la dirección 4096, pero «invir- 
tiéndolos» (línea 30). Es decir, hemos 
creado una nueva tabla del generador 
de patrones en la que todos ellos son 
los inversos de los que figuran en la ta- 
bla original. Las sentencias compren- 
didas entre las líneas 80 y 140 te per- 
miten ver el efecto en la pantalla. 

PROGRAMA 6 

10 SCREEN 

20 FOR 1=2048 T0 4095 

30 VPOKE 2048+1, VPEEK(I) 



10 SCREEN 1 

20 FOR 1=1 T0 8 

30 READ A 

40 A$=A$+CHR$(A) 

50 NEXT 

60 FOR 1=0 T0 3 
70 SPRITE$(I)=A$ 
80 NEXT 

90 FOR 1=0 T0 3 

100 PUT SPRITEI,(10+I*10,10) 

,15,1 
110 NEXT 

120 FOR 1=0 T0 15 

130 READ A 

140 VPOKE 4096+1, A 

150 NEXT 

160 VDP(5)=54 

170 VDP(5)=32 

180 GOTO 160 

1000 DATA 255,129,129,129,129 c 

,129,129,255 
2000 DATA 10,50,0,15,10,60,1, 

15,10,70,2,15,10,80,3,15 

Teclea el programa 7. Observarás 
que lo que hacemos es crear una nue- 
va tabla de atributos de sprites que co- 
mienza en la dirección 4096 de VRAM 
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y, con los DATA de la figura 2(XX) ha- 
cemos que los 4 sprites definidos ante- 
riormente se sitúen en 4 posiciones a 
la derecha de las posiciones iniciales 
(líneas 90 a 110). En las líneas 160 y 
170 activamos la tabla original 
(VDP(5) = 54) y la nueva tabla 
(VDP(5)=32), con lo que en la pan- 
talla vemos ¡¡¡8 SPRITES EN LA 
MISMA LINEA!!! 

Lamentablemente se observa un 
cierto centelleo en la presentación en 
pantalla. 

EL REGISTRO 6 

El valor de VDP(6) multiplicado 
por 2048 (2 f 11) nos dará la dirección 
de comienzo de la tabla del generador 
de modelos de sprites, que tanto en el 
modo 1 como en el modo 2 y en el 3 
es 14336. Por tanto VDP(6)=7 en es- 
tos tres modos. 

EL REGISTRO 7 
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LOS REGISTROS DEL VDP 



Si dividimos este registro en sus dos 
ñibbles, el alto contiene el color de la 
tinta en el modo de texto SCREEN 0, 
que inicialmente es 15 = blanco, y el 
bajo contiene el color del fondo en to- 
dos los modos. 



EL REGISTRO 8 



Se denomina también «registro de 
estado». Es el registro de sólo lectura 
que mencionábamos al principio. 

Los bits a 4 (ver figura) de este re- 
gistro contienen el número del quinto 
sprite cuando se han situado 5 sprites 
en una misma línea horizontal. El bit 
5 vale 1 si ha habido colisión entre 
sprites y en caso contrario. El bit 5 
está a 1 si hay 5 sprites en una línea ho- 
rizontal. En caso contrario está a 0. Y 
por último, el bit 7 sirve para contro- 
lar las interrupciones y vale 1 cuando 
el VDP ha terminado de analizar la 
pantalla y después que el VDP ha 
leído el registro de estado. 

Para terminar con los registros del 
VDP, veamos cómo acceder a ellos en 
código máquina. 



Para escribir un valor en un regis- 
tro del VDP debes hacer lo siguiente: 

IN A,(99H) 

LD A,N 

0UT (99H),A 

LD A,r 

0UT (99H),A 

donde n es el valor que queremos 
escribir en el registro r y r el número 
del registro (de a 7) -I- 128 (r=0..7 
+ 128). 

No puedes leer los registros del 
VDP desde código máquina, salvo el 
registro de estado, lo que se consigue 
con 

IN A,(99H) 
que coloca en el acumulador una 
copia de dicho registro. 

PROGRAMA 8 

5 CLEAR 200,55000! 

10 SCREEN 1 

20 F0R 1=1 T0 8 

30 READ A 

40 A$=A$+CHR$(A) 



50 NEXT 

60 F0R 1=0 T0 3 
70 SPRITE$(I)=A$ 
80 NEXT 

90 F0R 1=0 T0 3 

100 PUT SPRITEI, (10+1*10, 10) 

,15,1 
110 NEXT 

120 F0R 1=0 T0 15 
130 READ A 
140 VP0KE 4096+1, A 
150 NEXT 

160 F0R 1=1 T0 30 

170 READ A$ 

180 P0KE 55000!+I,VAL 

("8H"+A$) 
190 NEXT 

200 DEFUSR=55001 í 
210 U=USR(0) 

1000 DATA 255,129,129,129,129 
,129,129,255 

2000 DATA 10,50,0,15,10,60,1, 
15,10,70,2,15,10,80,3,15 

3000 DATA F3,DB,99,3E,20,D3,9 
9,3E,85,D3,99,3E,04,3D,2 
0,FD,3E,36,D3,99,3E,85,D 
3,99,CD,B7,00,30,E6,C9 
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PROGRAMA 9 
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; VDP(5;=54 


13 DoEB D399 




AfTITI 

OUT 


(99H) ,A 




14 D6ED 3E85 




LD 


A, 133 




15 D6EF D399 




OUT 


(99H),A 




16 D6F1 CDB700 




CALL 


0B7H 


;([CTRL-ST0P] PULSADA? 


17 D6FM 30E6 




JR 


NC, COMIENZO 


;N0 -> COMIENZO 


18 D6F6 C9 




RET 




;SI -> FIN 


19 




END 







El programa 8 utiliza la rutina en 
C.M. listada en el programa 9 y hace 
lo mismo que el programa 7, es decir, 
sitúa 8 sprites en una misma línea. La 
rutina hace que prácticamente se vean 
los 8 sprites sin interrupción (sigue ha- 
biendo un ligero centelleo). El bucle 
de retardo de la rutina es para que 
permanezcan el mismo tiempo en la 
pantalla las dos tablas de atributos. La 
rutina sólo puede ser interrumpida al 
pulsar simultáneamente las teclas 
CTRL-STOP. 
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20 



1 MANIPULADOR 
i 



VDP 



30 
40 

50 

60 

70 

80 

90 

100 

110 

120 

130 
140 
150 
160 



•Versi"n 01 .061086 - 
bytes 



1537 



SC=0 

WIDTH 39 

KEYV'screen" 
KEY2,"vdp" 

KEY3,"restaur" 

KEYV'fin" 

0N KEY G0SUB 580,660,810, 
930 

KEYC1) 0N 
KEYC2) 0N 
KEYC3) 0N 
KEYC4) 0N 



Si se te hace difícil encontrar IIMPUT 
en tu kiosco habitual, 
resérvalo por adelantado, o háznoslo saber 
para que podamos remediarlo 



170 0N STOP G0SUB 930 

180 STOP 0N 

190 G0SUB 520 

200 X=0 

210 Y=0 

220 SCREEN 

230 1 MENU 

240 ' 

250 CLS 

260 F0R 1=0 T0 8 

270 PRINT USING "§ § 

UUti §§ VDP #";V$(I); 

V(I);RIGHT$('*0"+HEX$ 

(V(I)),2);I 
280 NEXT I 
290 LOCATE 0,10 
300 PRINT "Screen";SC 
310 LOCATE 0,0,1 
320 0N STRIG G0SUB 470 
330 STRIG(O) 0N 
340 S=STICK(0) 
350 F0R 1=1 T0 50:NEXT 
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360 


IF S=0 THEN 340 


540 


V(I)=VDP(I) 


740 


RETURN 250 


370 


IF S=1 THEN Y=Y-1 


550 


V$( I) =RIGHT$( "00000000"+ 


750 


SCREEN SC 


380 


IF S=3 THEN X=X+1 




BIN$(V(I)),8) 


760 


FOR 1=0 TO 7 


390 


IF S=5 THEN Y=Y+1 


560 


NEXT I 


770 


VDP(I)=VAL("&b"+V$(D) 


400 


IF S=7 THEN X=X-1 


570 


RETURN 


780 


NEXT I 


410 


IF Y<0 THEN Y=0 


580 


'Key 1 


790 


•IF INKEY$="" THEN 120 


420 


IF Y>7 THEN Y=7 


590 


CLS 


800 


RETURN 200 


430 


IF X<0 THEN X=0 


600 


INPUT"Int roduce nuevo 


810 


'key 3 


440 


IF X>7 THEN X=7 




modo de panta l la"; SC 


820 


VDP(0)=0 


450 


LOCATE X,Y 


610 


SCREEN SC 


830 


VDP(1)=240 


460 


GOTO 340 


620 


GOSUB 520 


840 


VDP(2)=0 


470 


IF MID$(V$(Y),X+1,1)="0" 


630 


SCREEN 


850 


VDP(3)=0 




THEN V(Y)=V(Y) OR 2 A (7-X) 


640 


RETURN 200 


860 


VDP(4)=1 




ELSE V(Y)=V(Y) XOR 


650 


•key 2 


870 


VDP(5)=0 




2 A (7-X) 


660 


DEFUSR=&H156 


880 


VDP(6)=0 


480 


V$( Y) = RIGHT$( "00000000"+ 


670 


U=USR(0) 


890 


VDP(7)=244 




BIN$(V(Y)),8) 


680 


LOCATE ,,0 


900 


KEY(3) ON 


490 


LOCATE 0,Y 


690 


CLS 


910 


SCO 


500 


PRINT USING "§ § 


700 


LOCATE 6,12 


920 


RETURN 190 




UUn §§ VDP #";V$(Y); 


710 


PRINT "(((ESTAS SEGURO 


930 


1 key 4 




V(Y);RIGHT$("0"+HEX$ 




??? > S/N" 


940 


DEFUSR=&H3E 




(V(Y)),2);Y 


720 


W$=INKEY$:IF W$="" 


950 


U=USR(0) 


510 


RETURN 450 




THEN 720 


960 


LOCATE ,,0 


520 


LOCATE 0,0,0 


730 


IF W$="S" OR W$="s M 


970 


SCREEN 


530 


FOR 1=0 TO 8 




THEN 750 


980 


END 
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programo^ 



DESENREDA 
TUS CADENAS 



Las cadenas de caracteres se utilizan 
en toda clase de programas; de hecho 
se usan en todas las aplicaciones que 
requieran algo más que simples núme- 
ros. Aquí presentamos unas cuantas 
maneras de sacar de ellas el máximo 
provecho. 

Una cadena está constituida por 
una colección de caracteres. Puede 



tratarse de letras, números, signos de 
puntuación o cualquier otro de los 
símbolos del teclado. Además puedes 
ponerlas juntas en el orden que quie- 
ras. 

Naturalmente lo normal es que una 
cadena contenga algún tipo de infor- 
mación útil. Por ejemplo, la cadena 
«PEDRO DIAZ 241061 S» contiene 
el nombre, el primer apellido, la fecha 
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de nacimiento y el estado civil de una 
determinada persona. En total cuatro 
elementos de información. A su vez la 
fecha de nacimiento se puede subdivi- 
dir en día, mes y año, por lo que en 
realidad hay un total de seis elemen- 
tos de información. 

Son muchas las ocasiones en las que 
suele ser necesario subdividir (tro- 
cear) una cadena de caracteres para 
extraer determinadas porciones de in- 
formación, tal como ocurre con la fe- 
cha del ejemplo anterior. En otras 
ocasiones puede ser necesario sumar 
las cadenas. Puede que a veces tam- 
bién quieras medir la longitud de la ca- 
dena o calcular el valor de alguna de 
sus partes numéricas. Todo esto se 
puede hacer utilizando unas cuantas 
palabras clave del BASIC. 

La suma de cadenas, la llamada 
concatenación, es la más fácil de estas 
operaciones. Para ejecutarla no tienes 
más que utilizar el símbolo +. Si por 
ejemplo A$ es igual a «HE » y B$ es 
igual a «AQUI», entonces A$ + B$ 
es igual a «HE AQUI». La concate- 
nación es una operación que se limita 
a juntar unas cadenas de caracteres 
con otras; debe quedar claro que pone 
unas a continuación de otras, pero no 
suma sus valores numéricos. Así, 
«439» + «241» es igual a «439241» y 
no a 680. 



COMPARACION DE CADENAS 



El ordenador, además de poner 
unas cadenas junto a otras, es capaz 
de compararlas para ver si son ¡gua- 
les, como ocurre en este juego de adi- 
vinanzas: 

10 G=1 : R=RND(-TIME) :0N 

INT(RND(1)*6)+1 

GOTO 20,30,40,50,60,70 
20 B$="MANZANA":60T0 80 
30 B$="NARANJ A": GOTO 80 




40 B $="PLAT ANO ": GOTO 80 

50 B$="LIM0N":60T0 80 

60 B$="MEL0N":G0T0 80 

70 B$="PERA":GOTO 80 

80 PRINT CHR$(12);"S0Y UNA 

FRUTA, CUAL SOY"; 
90 INPUT A$ 
100 IF A$=B$ THEN 155 
110 G=G+1 
120 PRINT "MAL!" 
130 FOR J=1 TO 2000 
140 NEXT J 
150 GOTO 80 
155 IF 6=1 THEN PRINT 

"ACERTASTE A LA PRIMERA" : 

END 

160 PRINT "ACERTASTE TRAS";G; 
" INTENTOS" 

La línea 10 pone a 1 el contador de 
adivinanzas y a continuación lanza un 
dado electrónico para elegir una fru- 
ta. Las diferentes opciones están al- 
macenadas en las líneas 20 a 70. Cual- 
quiera que sea la línea a la que vaya 
el ordenador, el nombre de la fruta co- 
rrespondiente se almacena en B$, pa- 
sando después a la línea 80. Ahora tie- 
nes que acertar cuál es la fruta elegi- 
da e introducir tu conjetura mediante 
una sentencia INPUT con la variable 
A$. Esta variable se compara con B$ 
y si hay coincidencia total entre am- 
bas, el ordenador presenta el mensaje 
«HAS ACERTADO UNA VEZ» o 
bien «HAS ACERTADO» tantas 
«VECES» como corresponda en cada 
caso. Si A$ no es igual a B$, el orde- 
nador escribe «ERROR» y tienes que 
ensayar de nuevo una respuesta. El 
programa sigue adelante hasta que la 
respuesta sea la correcta. 

Fíjate bien en que aunque la res- 
puesta elegida por tí sea la correcta, 
la condición A$ = B$ no se cumplirá 
a menos que la ortografía sea también 
correcta. Para que sea correcta, las 
dos cadenas de caracteres han de ser 
absolutamente idénticas, tanto las le- 
tras, como los números y los signos de 
puntuación. 

Puedes utilizar esta técnica de com- 
paración de cadenas de caracteres 
para comprobar las entradas introdu- 
cidas desde el teclado, con una linea 
tal como la siguiente: 



IF A$ = «SI» THEN PRINT «ES- 
TAS SEGURO?» 

Observa que la condición anterior 
no se satisface si la palabra «sí» se te- 
clea con letras minúsculas. 



ORDENACION DE CADENAS 



También puedes comparar las cade- 
nas de caracteres utilizando los signos 
de desigualdad < y >. Podrías usar- 
los en una línea como la siguiente: 

IF A$<B$ THEN PRINT «LA 
PRIMERA ES »;A$ 

En este caso en la condición A$ < 
B$ se examina si la cadena A$ se si- 
túa antes o después que B$ cuando 
ambas se colocan en orden alfabético. 
Pero, ¡cuidado!, el ordenador hace la 
ordenación alfabética atendiendo al 
código ASCII de cada letra: a la A le 
corresponde el código ASCII 65 y a la 
Z el 90. El problema es que las letras 
minúsculas también tienen sus códigos 
ASCII: a la a le corresponde el 97 y a 
la z el 122. De esta forma, todas las ca- 
denas de caracteres que empiezan por 
letras mayúsculas se sitúan por delan- 
te de las otras. 

Y lo que es peor, los números, los 
signos de puntuación, los espacios y 
demás signos, también tienen sus có- 
digos ASCII, por lo que el orden re- 
sultante para las cadenas puede que- 
dar totalmente trastocado. No obstan- 
te, utilizando cuidadosamente los sig- 
nos < y > se puede obtener una or- 
denación alfabética de las cadenas de 
caracteres. 



TROCEADO DE CADENAS 



Se puede extraer un carácter o un 
conjunto de caracteres del interior de 
una cadena. Esto se hace utilizando 
las funciones LEFT$, RIGHTS y 
MID$. 

LEFT$(A$, numero) empieza por el 
principio o extremo izquierdo de la ca- 
dena A$ y te da el número de carac- 
teres que especifiques. Si la cadena A$ 
es «SR JUAN PEREZ» y especificas 



dos caracteres, es decir, si tecleas 
LEFT$(A$,2), el resultado será «SR». 

Análogamente la función RIGHTS 
empieza a contar por el otro extremo 
de la cadena. Así, RIGHT$(A$,5) 
dará como resultado «PEREZ». 

Con la función MID$ puedes espe- 
cificar dos números, que correspon- 
den a la posición de partida y al nú- 
mero de caracteres que ha de conte- 
ner el trozo. Por ejemplo, 
MID$(A$,4,6) empezará en el cuarto 
carácter J y tomará seis caracteres, 
dando como resultado «JUAN P». Si 
solamente especificas un número, tal 
como MID$(A$,4), obtendrás todos 
los caracteres desde el cuarto en ade- 
lante. 

El siguiente programa utiliza las 
funciones LEFT$, MID$ y LEN. Se 
trata de un juego de anagramas para 
dos personas. Una de ellas introduce 
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Prograntaáón 



una palabra que el ordenador seguida- 
mente cifra y presenta en forma de 
anagrama para que la otra persona la 
adivine. 

10 R=RND(-TIME) : PRINT 

CHR$(12);"PR0GRAMA DE LA 
ADIVINANZA" 

20 PRINV'ESCRIBE LA PALABRA 
A ENCONTRAR" 

30 W$="" 

40 W1$=INKEY$:IF W1$="" 

THEN 40 
50 IF W1$=CHR$(13) THEN 80 
60 W$=W$+W1$ 
70 GOTO 40 
80 W0$=W$ 




90 F0R N=LEN(W$) TO 1 STEP-1 
100 M=INT(RND(1)*N)+1 
110 A$=A$+MID$(W$,M,1 ) 
120 W$=LEFT$(W$,M-1)+RIGHT$ 

(W$,LEN(W$)-M) 
130 NEXT N 
140 PRINT CHR$(12); 

"EL ANAGRAMA ES: ";A$ 
150 PRINT"CUAL PIENSAS QUE ES 

LA PALABRA" 
160 INPUT GU$ 
170 G=G+1 

180 IF GU$OW0$ THEN PRINT 

"ERRONEA, INTENTA OTRA 

VEZ":G0T0 160 
190 PRINT"BIEN HECHO" 
200 IF G=1 THEN PRINT 

"NECESITASTE UN INTENTO": 

GOTO 220 
210 PRINT"NECESITASTE";G; 

" INTENTOS" 
220 PRINT"OTRA PARTIDA 

(S/N)?" 
230 A$=INKEY$:IF A$<>"S" 

AND A$<>"N" THEN 230 
240 IF A$="S" THEN RUN 

Cuando ejecutes este juego, obser- 
varás que la primera palabra tecleada 
no aparece en la pantalla. Lo hemos 
programado así para que tu oponente 
no pueda saber cuál es. Cada ordena- 
dor utiliza un método diferente para 
conseguir esto. Aquí hemos hecho uso 
del INKEY$ de la línea 40. Cada le- 
tra que tecleas se va almacenando en 
la variable W$ (línea 60) hasta que 
pulses RETURN (línea 50). 

La rutina de cifrado está contenida 
en las líneas 90 a 130. Lo que hace esta 
rutina es extraer caracteres de forma 
aleatoria de la palabra (W$) y poner- 
los todos juntos en A$ que se convier- 
te así en un anagrama. 

En la línea KM) se elige un número 
aleatorio M comprendido entre 1 y la 
longitud de la palabra, y a continua- 
ción la línea 1 10 extrae la letra M-si- 
ma y se la añade a A$. La línea 120 
borra este carácter de la palabra ori- 
ginal, suprimiendo su parte izquierda 
hasta el número M y añadiendo la par- 
te restante que queda a la derecha de 
M. La palabra resultante tiene ahora 
un carácter menos, pero la vez si- 
guiente, la variable N también es un 



carácter menor, por lo que el número 
aleatorio M está otra vez restringido a 
la longitud de palabra. 

Llegará un momento en que se ha- 
yan extraído todos los caracteres y el 
anagrama quedará impreso en la pan- 
talla, momento en que el programa le 
preguntará a tu oponente cuál era la 
palabra original. Cuando teclees en la 
sentencia INPUT la palabra correcta, 
el programa te responde cuántos in- 
tentos has necesitado y le brinda una 
nueva oportunidad. 

Sería muy sencillo modificar este 
programa para que se puedan leer las 
palabras a través de una serie de sen- 
tencias DATA en vez de utilizar sepa- 
radamente un INPUT cada vez. Tam- 
bién puedes incluir un sistema de pun- 
tuaciones que, por ejemplo, asigne 
diez puntos cada vez que se acierte a 
la primera, nueve puntos a la segunda 
y así sucesivamente. 

Otro posible uso de este método de 
troceado es la manipulación de fechas. 
Incluso en los casos en que las fechas 
se introducen en forma de números, 
por ejemplo 27/03/51, en vez del 27 de 
marzo de 1951. Después de todo, pue- 
des manipular una fecha expresada de 
esta forma con las leyes normales de 
las matemáticas. También puedes pro- 
cesar diferentes partes de una fecha 
por medio de la aritmética. Puedes 
calcular por ejemplo la edad de una 
determinada persona tecleando su fe- 
cha de nacimiento, o calcular el núme- 
ro de días transcurridos entre dos fe- 
chas dadas; no tienes más que mane- 
jar separadamente la parte de los 
años, la de los meses y la de los días. 

Las funciones LEFT$, RIGHT$ y 
MID$, te permiten separar con facili- 
dad la parte de los días, la de los me- 
ses y la de los años de una determina- 
da fecha. Si ahora utilizas las funcio- 
nes VAL, obtendrás a partir de la ca- 
dena de caracteres resultante un nú- 
mero con el que puedes hacer sumas, 
restas multiplicaciones y divisiones. 

LONGITUD DE LAS CADENAS 

A veces interesa conocer la longitud 
de una cadena. Si por ejemplo sólo 
dispones de una limitada capacidad de 
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ORDENA TUS CADENAS 

Cuando el ordenador extrae 
de manera casi mágica las direc- 
ciones de centenares de entradas 
separadas y las presenta en la 
pantalla, es fácil imaginar que la 
máquina es más inteligente de lo 
que realmente es. Sucede casi 
como si el ordenador estuviera 
leyendo directamente las entra- 
das y a continuación decidiendo 
lo que tiene que hacer. 

No te confundas. El ordena- 
dor se limita a extraer una parte 
de la cadena a medida que va re- 
cibiendo información. Si resulta 
que una parte de esas cadenas 
contiene un galimatías, pues eso 
es lo que te encontrarás. Para 
asegurarte de que obtienes la 
misma información de cada ca- 
dena, tienes que garantizar que 
la información se almacena en el 
mismo sitio. Los investigadores 
profesionales con frecuencia uti- 
lizan tarjetas de entrada con un 
formato normalizado, que cons- 
tituyen una de las ayudas más 
valiosas que te puedes procurar. 
Para ello no necesitas más que 
una serie de espacios que con- 
tengan los caracteres, rotulados 
con arreglo al lugar donde debe 
empezar y acabar cada elemen- 
to de información. 



memoria para cada elemento de infor- 
mación introducido desde el teclado, 
o sólo un espacio limitado de pantalla 
para presentar dicha información, 
puede ser de gran ayuda comprobar la 
longitud de la cadena antes de seguir 
con el programa. 

La función LEN(A$) te da como re- 
sultado el número de caracteres que 
contiene la cadena A$. Se trata de una 
función numérica y no de una cadena 
de caracteres, por lo que puedes ma- 
nipularla con arreglo a las leyes nor- 
males del álgebra. Por ejemplo, si A$ 
= «Sr Juan Pérez», LEN(A$) = 13. 
Pero supongamos que te piden que te- 
clees un nombre para un determinado 
fichero cuyo formato tabulado para 
representación en pantalla sólo tiene 
sitio para 11 letras, por lo que puede 
ser que haya que enviar un mensaje 
para que se recorte la entrada, tal 
como el siguiente: 

10 PRINV'ESCRIBE EL NOMBRE" 
20 INPUT A$ 

30 IF LEN(A$)>11 THEN PRINT 
"LO SIENTO. SOLO ADMITO 
11 CARACTERES" : GOTO 10 

El usuario podría así recortar su en- 
trada y teclear únicamente «JUAN 
PEREZ». 

En otros casos podría resultar más 
fácil truncar automáticamente la en- 
trada. Esto se hace con una línea tal 
como la siguiente: 

IF LEN (A$>15 THEN 
A($) = LEFT$(A$,15) 



CONVERSION DE CADENAS A 
NUMEROS 



Uno de los usos de las variables de 
cadenas de caracteres es conseguir que 
las entradas introducidas por el tecla- 
do sean correctas. Por ejemplo, si es- 
cribes un programa que contenga un 
par de líneas como las siguientes: 

100 PRINT"ESCRIBE UN 

NUMERO" 
110 INPUT A 

el ordenador se quedará esperando 
que teclees algún número. Si por error 



tecleas algún carácter no numérico, 
casi todos los ordenadores interrumpi- 
rán la representación en pantalla y en- 
viarán un mensaje etándar de error. 
Dicho mensaje te informará de que 
hay algo que está mal pero no te dirá 
lo que es. 

Pero si en lugar de esto utilizas: 

110 INPUT A$ 

en este caso el usuario puede teclear 
casi cualquier cosa y el ordenador lo 
aceptará. El siguiente paso es conver- 
tir la cadena de caracteres en un nú- 
mero. Para hacerlo, utiliza la función 
VAL(A$). 

La función VAL extrae la parte nu- 
mérica de la cadena de caracteres. 
Así, si A$ es un número, entonces 
VAL(A$) será un número que puede 
ser utilizado en el resto del programa. 
Si por el contrario A$ no es un núme- 
ro, VAL(A$) dará como resultado el 
valor 0. Puedes escribir entonces una 
pequeña subrutina que explique en 
detalle lo que el usuario ha hecho mal 
y le brinde otra oportunidad sin tener 
que salir del programa y destruir la 
presentación que haya en pantalla. 

Un punto importante a tener en 
cuenta a propósito de la función VAL 
es que sólo extrac números del princi- 
pio de la cadena. En consecuencia, 
VAL(«25 DE JULIO») será igual a 
25, mientras que VAL(JULIO 25) 
será igual a cero. De modo que ten 
cuidado al utilizarla. 

La función VAL resulta muy útil 
para ordenar los números de una ca- 
dena de caracteres de varias formas di- 
ferentes. Si por alguna razón tienes los 
nombres y las puntuaciones de un gru- 
po de alumnos en forma de cadenas, 
tal como: A$ = «32 JORGE», B$ = 
«45 MIGUEL», C$ = «41 ELENA», 
etc y deseas calcular la media de la cla- 
se, puedes extraer valores individuales 
con ayuda de la función VAL. Así 
VAL(A$) vale 32, VAL(B$) vale 45 y 
VAL(C$) vale 41. 

También puedes usar VAL de for- 
ma parecida para ignorar las unidades 
que pueden ir acompañando magnitu- 
des tales como pesos y longitudes. El 
siguiente programa te permitirá apre- 
ciar la diferencia: 



100 A$="32 KG" 

110 B$="110 KG" 

120 PRINT"A$+B$=";A$+B$ 

130 PRINT"VAL(A$)+VAL(B$)="; 

VAL(A$)+VAL(B$) 
140 END 



CONVERSION DE NUMEROS A 
CADENAS 



La función STR$ tiene un resultado 
casi opuesto al de VAL. Sirve para 
transformar una cadena en un núme- 
ro. La ventaja de esto es que las ca- 
denas de caracteres pueden ser mani- 
puladas de forma distinta a los núme- 
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ros, por ejemplo con ayuda del trocea- 
do y la concatenación que ya hemos 
visto, por lo que STR$ tiene varias 
aplicaciones. 

El siguiente programa sirve para 
convertir en binario un número deci- 
mal. 

10 PRINV'DECIMAL A BINARIO" 
20 INPUT"ESCRIBE UN NUMERO 

ENTERO DECIMAL"; D 
40 B$="" 

50 B$=RIGHT$(STR$(D-INT 

(D/2)*2),1)+B$ 
60 D=INT(D/2) 
70 IF DO0 THEN 50 
80 PRINTEL NUMERO 

BINARIO ES ";B$ 

Evidentemente esto sería más fácil 
de hacer con la función incorporada 
BIN$(X) que convierte a binario el 
número decimal X. 

Al introducir un número decimal 
positivo, la línea 40 hace la cadena B$ 
igual a la cadena nula, que después va 
llenando progresivamente con dígitos 



a medida que progresa el cálculo en el 
bucle de las líneas 50 a 80. 

La línea 50 es la que realmente se 
encarga de construir el número bina- 
rio. Para ello resta dos veces la parte 
entera de la mitad del número decimal 
del propio número decimal. Esta es 
una forma sencilla de comprobar si un 
número es par o impar. Si es impar, 
el resultado es 1, mientras que siendo 
par el resultado es 0. Naturalmente, 
estos son los dígitos binarios buscados. 



PROCESAMIENTO DE TEXTOS 



Las funciones de manejo de cade- 
nas de caracteres se utilizan amplia- 
mente, en especial en proceso de tex- 
tos. Una necesidad que se plantea con 
frecuencia es la sustitución de una pa- 
labra por otra en toda la extensión de 
un documento (posiblemente debido a 
que has descubierto una falta de orto- 
grafía). Naturalmente, si la nueva pa- 
labra tiene una longitud diferente de 
la original, tienes que desplazar el res- 



to del texto para dejarle sitio. El si- 
guiente programa te muestra la mane- 
ra de hacerlo: 

10 INPUT"ESCRIBE EL TEXTO" 
;T$ 

20 INPUT"PALABRA A REEMPLAZAR 
";P$ 

30 INPUT"PALABRA SUSTITUTA" 

;NP$ 
35 P=0 
40 P=P+1 

50 A$=MID$(T$,P,LEN(P$)) 

60 IF A$OP$ THEN 90 

70 T$=LEFT$(T$,P-1)+NP$+ 

RIGHT$(T$,LEN(T$)-P-LEN 

(P$)+1) 
80 P=P+LEN(NP$)-1 
90 IF P<LEN(T$) THEN 

GOTO 40 
100 PRINT T$ 
110 GOTO 20 

Empieza introduciendo una frase 
más bien sencilla y a continuación en- 
saya el efecto de sustituir algunas de 
sus letras o palabras. En las palabras 
cortas tales como «a» o «un» convie- 
ne teclear además un espacio antes y 
después para evitar que se apliquen 
también los cambios cada vez que se 
presenten dichas palabras embebidas 
en otras más largas, tales como «para» 
o «unidad». 

El programa funciona de la siguien- 
te manera: La línea 40 envía a P a em- 
pezar la fase de búsqueda al principio 
del texto. Las líneas 50 y 60 detectan 
la primera aparición de la palabra o 
grupo de letras que pretendes sustituir 
y a continuación la línea 70 realiza la 
sustitución. Lo que hace es tomar el 
texto original, remplazar la palabra 
;intigua por la nueva y añadir el texto 
restante. El proceso se repite hasta 
que se ha realizado la sustitución en 
todos los sitios en que aparece la pa- 
labra que se quiere sustituir, impri- 
miéndose a continuación en la línea 
100. 

Como has visto, se trata de un 
ejemplo muy simple, los procesadores 
del mundo real son mucho más com- 
plicados. Sin embargo puede servir 
para darte una idea de algunas aplica- 
ciones prácticas de lo que se puede ha- 
cer con las cadenas de caracteres. 
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UN PROGRAMA QUE JUEGA 
A LAS CUATRO EN RAYA 00 



En este número publicamos la se- 
gunda parte del programa «Cuatro en 
Raya», junto con un desglosado ex- 
haustivo de sus principales rutinas. De 
paso, con este programa trataremos de 
ilustrar las dificultades que presenta el 
BASIC en esta materia, y sobre todo, 
cómo superarlas. 

En el último artículo publicado den- 
tro de esta serie, ilustrábamos los prin- 
cipios del funcionamiento de los jue- 
gos de estrategia con el ejemplo de las 
«Cuatro en Raya». Creemos que las 
explicaciones eran lo suficientemente 
detalladas como para que algún lector 
avezado se atreviera a desarrollar su 
propio juego inteligente. Tanto para 
los que lo han intentado como para los 
que no, este mes proponemos lo que 
podría ser la solución al reto que plan- 
teábamos en el último número. 

Por si algún lector no conociera este 
juego, o tuviera alguna duda por su si- 
militud con el de las «Tres en Raya», 
empezaremos por explicar somera- 



mente en qué consiste. Se trata de co- 
locar cuatro fichas de un mismo color 
en línea, ya sea horizontal, vertical o 
diagonal. Cada ficha ha de colocarse 
sobre la base del tablero o encima de 
otra ficha ya colocada, aunque sea del 
contrario. El primer jugador que con- 
siga su objetivo, será el ganador. Es 
fundamental tener en cuenta la impor- 
tancia del hecho de «colocar primero» 
en el desarrollo posterior del juego. 
Por esta razón, el programa incopora 
la posibilidad de elegir quien comien- 
za el juego, el ordenador o el usuario. 

Volvemos a hacer hincapié en cómo 
se demuestra que la Inteligencia Arti- 
ficial puede hacer cosas sorprendentes 
con listados sorprendentemente bre- 
ves. 



DESGLOSADO DEL PROGRAMA 



Para una clara explicación del fun- 
cionamiento del programa, nos remi- 
tiremos constantemente al listado del 



mismo y a los gráficos ilustrativos que 
acompañan al texto. 

Como vimos en números pasados, 
el fundamento básico de los juegos de 
estrategia está en la valoración de las 
jugadas posibles, propias y del contra- 
rio, para determinar cuál es la más fa- 
vorable y actuar en consecuencia. 
Pués bien, en este caso, como en to- 
dos, deberemos empezar por estable- 
cer cuáles son las posiciones en las que 
podemos colocar una ficha. La figura 
número uno lo muestra (conociendo 
las reglas del juego, no necesita más 
comentario). Nosotros podemos verlo 
a simple vista, pero ¿cómo hacérselo 
ver al ordenador? 

De esto se encarga la rutina-bucle 
situada en la línea 1030-1060. 

El tablero está representado en la 
matriz a(7,4), con un cero para las po- 
siciones vacías, un uno para las ocu- 
padas por una ficha del ordenador, y 
un dos para las ocupadas por el juga- 
dor. El bucle 1030-1060 comienza a 
buscar posiciones vacías desde la base 
del tablero, enviando el flujo del pro- 
grama a la parte siguiente (valoración 
de la posición) cuando encuentre una. 
Para ver la relación tablero/matriz 
(que está pensada a la inversa de como 
cabría esperar para simplificar el pro- 
ceso), consultar la figura cuatro. 

A partir de aquí, posición por posi- 
ción, el programa estudia y valora los 
alineamientos conseguidos. Almacena 
el valor más alto conseguido en la va- 
riable ta, opera de la misma manera 
con las posibles jugadas del contrario, 
y finalmente hace la jugada más favo- 
rable. Si la mejor jugada del ordena- 
dor es un alineamiento de dos fichas, 
y la mejor jugada posible del contra- 
rio otro de tres, el ordenador hará la 



Figura 1.- Los lugares a analizar en 
la presente situación aparecen colorea- 
dos en magenta. 
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Figura 2.- Análisis de una posición 
con respecto a las posiciones contiguas. 

jugada del contrario para evitar que 
éste la realice, pues su valor (tres) es 
mayor. El programa puntúa con un 
punto cada ficha alineada en una po- 
sición dada. Este análisis y valoración 
configura lo que podemos considerar 
como la parte más importante del pro- 
grama, que se encuentra entre las lí- 
neas 1100-1530. En cada posición ana- 
lizada, se estudian las alineaciones 
conseguidas en la forma que muestra 
la figura número dos. Se comienza por 
analizar una posición contigua; por 
ejemplo, x+l,y-l. Si está ocupada 
por una ficha del mismo color (repre- 
sentada en la matriz por un 1 si es del 
ordenador, y por un 2 si es del contra- 
rio), se suma un punto al valor de esa 
posición, que comenzó con cero, y se 
vuelve a sumar uno a'x'ya restar uno 
a 'y' para seguir la línea en esa direc- 
ción, es decir, se analiza la posición 
x+2, y— 2. Si no está ocupada por una 
ficha del mismo color, se vuelve a la 
posición original (x,y), y se pasa a se- 
guir en el sentido contrario dentro de 
la misma línea (es decir, x-1, y+1), 
procediendo de la misma manera. Al 
final obtendremos el número de fichas 
alineadas y contiguas en la recta repre- 
sentada por las dos flechas verdes. Su- 
cesivamente, se hace un análisis idén- 
tico con el resto de las rectas (la hori- 
zontal, vertical y la otra oblicua) y se 
almacena, como ya dijimos, el mayor 
alineamiento en la variable ta. 

Quizás esta explicación resulte un 
poco complicada si se hace con pala- 
bras. La mejor forma de comprender 
esto que hemos expuesto es seguir de- 
tenidamente el listado del programa, 
para estudiar directamente la forma 
en que lo hace. 

Vamos a tomar ahora el ejemplo re- 
presentado en la figura tres. El orde- 
nador estudia y valora dos jugadas 
propias posibles, que se realizarían co- 
locando en la posición 1 o en la posi- 
ción 2. En la posición uno, obtendría 
un alineamiento de dos fichas, con un 
valor pues de 1 punto (la ficha que aún 
no se ha colocado no se cuenta, por 
eso es uno y no dos), mientras que en 
la posición 2, el alineamiento sería de 



3 fichas, con un valor de 2. La posi- 
ción uno, por tener un valor menor, 
queda descartada. A continuación, se 
busca la mejor jugada del contrario 
(impropiamente, decimos «mejor ju- 
gada» cuando deberíamos decir «ali- 
neamiento más numeroso», ya que en 
realidad, un alineamiento de tres no 
tienen por qué ser necesariamente 
más beneficioso que uno de dos en la 
estrategia general del jugador). 

Colocando éste en la posición tres, 
obtendría un alineamiento de cuatro 
fichas, y por tanto vencería. En todo 
caso, como su valor es mayor que el 
obtenido por el mejor alineamiento 
del ordenador, el programa pondrá su 
ficha en la posición tres para «tapo- 
nar» la jugada victoriosa del contrario. 

Los lectores más atentos habrán ob- 
servado que en el programa no se em- 



plean otros criterios de valoración de 
los que sí hablamos en el número an- 
terior, como por ejemplo la posibili- 
dad de seguir colocando fichas a am- 
bos lados del alineamiento. Lo hemos 
hecho así por dos razones fundamen- 
tales: en esta serie, como ya hemos ad- 
vertido, los programas que propone- 
mos no pretenden ser pautas rígidas y 
acabadas en todos sus detalles, sino 
materiales para que el lector trabaje 
con ellos y desarrolle sus propias me- 
joras y creaciones; este hecho nos 
obliga también a no tratar de compli- 
car excesivamente el listado, para ha- 
cerlo accesible sin necesidad de dedi- 
car largas horas a su estudio. 

No obstante, podemos proponer 
una mejora que permita valorar espe- 
cialmente las posiciones situadas en el 
centro del tablero, por ofrecer más po- 
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sibilidades de completar una línea. 
Bastaría simplemente con sumar un 
punto al valor almacenado por cada 
combinación si en esa posición las va- 
riables n y f son distintas de cero, de 
cuatro y de siete, es decir, si esa posi- 
ción no está en un borde del tablero. 

Entre las líneas 2000-2130, el pro- 
grama trabaja todo lo relacionado con 
el turno del jugador. Vigila que éste 
no trate de colocar en un lugar en que 
no pueda hacerlo, mueve el cursor de 
una posición a otra e imprime la ficha 
en el lugar elegido. 

El cursor se desplaza con las teclas 
o,p,q,a, y la ficha se coloca en el lu- 
gar elegido pulsando «cero». Cuando 
al principio del juego, el programa nos 
pregunta si queremos que empiece él, 
basta con pulsar la «s» para contestar 
que si, y la «n» para no. En este últi- 
mo caso, comenzaríamos nosotros. 

A pesar de la sencillez del algorit- 
mo empleado en este programa, ob- 
servaremos que resulta difícil vencer- 
lo, sobre todo si empieza él a jugar. 
Sabiendo cómo funciona y en qué se 
basa su análisis, podremos encontrar 
un sistema para ganar siempre, pero 
también otro sistema para que la má- 
quina lo evite. 

Finalmente, hemos de advertir que 
la introducción de mejoras en el pro- 
grama que supongan un aumento del 
listado, sobre todo en la parte corres- 



pondiente al turno del ordenador, 
puede suponer un considerable incre- 
mento de la lentitud de la máquina en 
la resolución de sus jugadas. 



LA RUTINA 2040 



Los «devoradores» de bibliografía y 
revistas de informática habrán podido 
comprobar con cuánta frecuencia se 
invocan las «limitaciones del BASIC» 
para disculpar a lo que en algunas oca- 
siones no es más que el desconoci- 
miento de las posibilidades de este 
lenguaje de programación. La línea 
2040 del programa que acompaña a 
este texto, encargada de determinar 
qué tecla se ha pulsado y variar el va- 
lor de la posición en que se ha de im- 
primir el cursor, es un claro ejemplo 
de un correcto aprovechamiento del 
BASIC, en aras a una mayor veloci- 
dad y un menor gasto de memoria. 

Las condicionales del tipo 
IF...THEN ... 

son extraordinariamente lentas. Va- 
rias de ellas en sucesión colocadas en 
líneas distintas, pueden inutilizar un 
programa al hacerlo excesivamente 
lento. Pero como las sentencias condi- 
cionales resultan imprescindibles para 
casi todo lo que queremos hacer, se 
hace necesario idear otro tipo que 
consuma menos memoria y menos 



tiempo, como el que proponemos en 
la línea 2040. 

Las expresiones colocadas entre pa- 
réntesis en el ejemplo que ponemos, 
dan siempre como resultado uno o 
cero, según sean verdaderas o falsas. 
Como los valores que tenemos que su- 
mar o restar al valor de las variables 
que almacenan la posición del cursor, 
n y f , son siempre uno o cero, pode- 
mos utilizar las posibilidades de la sen- 
tencia AND a través de una serie de 
operaciones lógicas para alterar esas 
variables directamente. 

Veamos ahora lo que hubiéramos 
necesitado hacer para conseguir el 
mismo efecto con sentencias del tipo 
IF ... THEN... 

2040 IF i$=8 AND n<8 THEN 
LET n=n + l 

2042 IF i$=5 AND n>l THEN 
LET n=n-l 

2044 IF i$=7 AND f<5 THEN LET 
f=f+l 

2046 IF i$=6 AND f>l THEN LET 
f=f— 1 

La comparación, como se ve, no 
deja lugar a dudas. 

Esperamos que el lector pase un 
buen rato con el programa «CUA- 
TRO R.», y que no se limite a teclear- 
lo y dejarlo tal cual está. 

2000 REM TURNO DEL JUGADOR 
2005 IF T=1 GOTO 1000 
2010 N=1: F=1 
2015 LOCATE 0,1: PRINT 

"SU TURNO 
2018 GOTO 2060 
2020 I$=INKEY$ 
2025 IF 1$="" GOTO 2020 
2030 LOCATE X,Y: PRINT " " 
2035 IF I$="0" GOTO 2100 
2040 N=N+(1 AND I$="P" AND 
N<7)-(1 AND I$="0" AND 
N>0): F=F+(1 AND I$="A" 
AND F<4)-(1 AND I$= M Q" 
AND F>0) 
2060 X=(N*3)+2: Y=(F*3)+5 
2070 LOCATE X,Y: PRINT 

CHR$(&HDFJ): GOTO 2020 

Figura 3.- Análisis de tres posiciones 
para ambos jugadores. 
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REM FINAL TURNO DEL 

JUGADOR COMPROBACION 

VICTORIA E IMPRESION DE 

LA FICHA 

IF F=4 GOTO 2108 

IF A(N,F+1)=0 GOTO 2060 

IF A(N,F)<>0 GOTO 2060 

X=(N*3)+2: Y=(F*3)+4 

LOCATE X,Y:PRINT CHR$(1) 

;CHR$(66) 

BEEP 

A(N,F)=2: T=1: TT=2: 
TA=0: TF=0: U=1 : GOSUB 
1100 

IF TA<>3 THEN GOTO 1000 



2120 



2130 
2140 
2500 
2510 



2520 
2530 
9000 

9010 
9020 



IF TA=3 THEN CLS: PRINT 
"ME HAS GANADO": PRINT " 
PULSA UNA TECLA": BEEP 
IF INKEY$="" GOTO 2130 
RUN 

REM TABLAS 

CLS: PRINT "HEMOS 

QUEDADO EN TABLAS": PRINT 

"PULSA UNA TECLA" 

IF INKEY$="" GOTO 2520 

RUN 

REM TRAZADO TABLERO. 
ELECCION INICIO PARTIDA 
FOR N=4 TO 16 STEP 3 
LOCATE 2,N: PRINT "I 



Figura 4.- Estructura de la matriz 
a(n,f). 

I I I I I I 
I" 

9030 NEXT N 

9040 LOCATE 0,0: PRINT 

"CUATRO EN RAYA. E.V.- 
INPUT" 

9050 PRINT "EMPIEZO YO ?" 
9060 I$=INKEY$ 
9065 IF 1$="" GOTO 9060 
9070 IF I$="S" THEN T=1 
9080 IF I$="N" THEN T=2 
9100 GOTO 1000 
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LOS MEJORES 
DE INPUT MSX 



PUESTO TITULO PORCENTAJE 

1° Soccer 20 % 

2.° H.E.R.O. 14,1 % 

3° KnightLore 13,5% 

4° Profanation 9,6% 

5° Alien 8 9,2% 

6° YieArKungFu 8,3% 

7° HyperRally 7,7% 

8.° BC II Grogs Revenge 7,3% 

9° Bounder 5,2% 

10.° YieArKungFu 5,1% 



100% 

Para la confección de esta relación únicamente se 
han tenido en cuenta las votaciones enviadas por 
nuestros lectores de acuerdo con la sección «Los 
Mejores de Input». 

Diciembre de í 986 
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Le sacarás partido a tu ordenador 





MSX: 

Guía del programador y manual 
de referencia 

T. Sato, P. Mapstone e I. Muriel 
2.279 pías. 



LENGUAJE MAQUINA MSX. 

Introducción y conceptos 

avanzados 

Joe Pritchard 

l.537ptas. 



EL LIBRO GIGANTE 

DE LOS JUEGOS PARA MSX 

Andrew Lacey 
1.590 pías. 



DESCUBRE TU MSX. 

Programación y aplicaciones 
Joe Pritchard 

I.272ptas. 



INTELIGENCIA ARTIFICIAL 

Conceptos y programas 
Tim Hartnell 
1.484 ptas. 

EL SUPERLIBRO DE LOS 
JUEGOS PARA ORDENADOR 

Tim Hartnell 

2. 120 ptas. 

CODIGOS Y CLAVES 
SECRETAS 

Criptografía en Basic 
Gareth Greenwood 



PROGRAMACION DEL Z80 

Rodnay Zaks 
2.915 ptas. 

SISTEMAS EXPERTOS 

Introducción al diseño 
y aplicaciones 
Tim Hartnell 

2.120ptas. 

SIMULACIONES 

Replica la realidad con tu 

ordenador 

Tim Hartnell 

1.643 ptas. 



□ Les ruego me envíen el catálogo de su editorial. 

□ Les ruego me envíen los siguientes títulos: 



TOTAL 



□ Adjunto talón bancario a 

GRUPO DISTRIBUIDOR EDITORIAL S. A. 

□ Pagaré contrarrembolso (+ 140 pesetas de gasto de envío). 
Nombre 



Profesión 
Dirección 
CP 



Localidad 



Provincia 



ANAYA 



IMULTIMEDI 



Adquiéralos en su librería habilual. 

Si no le es posible o desea que le enviemos nuestro catálogo, envíe este cupón a: 
Apdo. de Correos 14632. Reí. D. de C. 28080 MADRID 
Comercializa: GRUPO DISTRIBUIDOR EDITORIAL. 
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EL LAGO ENVENENADO 



Drixx se encuentra perdido en un 
mundo desconocido para él. Cuando 
su platillo volante falto ya de 
combustible pierde altura 
peligrosamente, Drixx sólo puede 
aterrizar en medio de un venenoso 
lago de cloro. Se encuentra atestado 
de innumerables peligros que nuestro 
héroe deberá esquivar. Temibles 
rayos, objetos agresivos, compuertas 
que se abren y se cierran intentando 





No dudamos de que con tu pericia, 
Drixx conseguirá llegar sano y salvo 
a la orilla. 

The Wall es un juego que desarrolla 
una buena idea, pero cuya 
realización, si tenemos en cuenta el 
nivel de sofisticación alcanzado por 
otros juegos actualmente, se ha 
quedado un poco pobre, tanto a 
nivel de gráficos como de animación, 
de variedad de efectos v de sonido. 







atraparle, y un sinfin de peligros más 
que Drixx sólo puede intentar 
esquivar o saltar sobre ellos. Pero 



esc salto no está exento de peligros, 
ya que si cae al lago, su suerte estará 
echada. 



Es un juego al que se le podía haber 
sacado mucho más partido. 



*★★★★*★★★★**★******★*★★ 



UN POKER MUY SEXY 



¿Habéis probado alguna vez la 
emoción del poker descubierto? 
Ahora tenéis ocasión de disfrutarlo 
con las dos interesantes modalidades 
de este programa. 
En la primera de ellas nos 
enfrentaremos en una interesante 
partida de strip-poker con Samantha 



Fox. Ella está convencida de que 
somos unos malos jugadores y ha 
aceptado apostar sus prendas de 
vestir. 

No va a ser fácil, sin embargo, llegar 
a «derrotarla» completamente, ya 
que Samantha es una experta 
jugadora, habilísima con los trucos y 



las tretas del juego, y que defenderá 
con uñas y dientes cada partida 
¡Cuidado, no sea que tengamos que 
desnudarnos nosotros al final! Os 
garantizamos que no es nada sencillo 
derrotarla. 

En la segunda cara del cassette está 
la segunda modalidad de este juego. 
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• THE KNIGHT 
COMMANDER: 

40 nuevos comandos para 
el Basic del MSX dejando 
completamente libre la 
memoria RAM. 22 Teclas 
extras. RS 101 

• TURBO CHESS: 
Completísimo juego de 
Ajedrez. 100% código má- 
quina. Efectos sonoros. Ni- 
veles de dificultad. RS 108 

• LAZY JONES: 

Una serie de juegos en uno 
solo. Sprites en alta resolu- 
ción. Niveles progresivos 
de dificultad. Efectos sono- 
ros. RS 106 
• SORCERY: 
Esta emocionante arcade 
aventura te transporta a un 
mundo fantástico. 50 pan- 
tallas para explorar. Deta- 
llados gráficos. RS 1 03 

• SUPER BOWL: 

Una cuidada y realista si- 
mulación del fútbol ameri- 
cano. Uno o varios jugado- 
res. RS 104 

• 3D KNOCKOUT: 

Un combate de boxeo con 
ocho niveles de dificultad y 
ocho oponentes. RS 102 

• MUTANT MONTY: 

40 pantallas. Joystick o 
teclado. Sprites. 100% có- 
digo máquina. Efectos so- 
noros. RS 107 

• STAR SEEKER: 

Los misterios del Firma- 
mento son revelados en 
este programa. Una intro- 
ducción fácilmente com- 
prensiva a la fascinante 
ciencia de la Astronomía. 
RS 105 

• WHO DARES WINS II 

Conviértete en un volunta- 
rio para una misión suicida. 
Un juego rebosante de ac- 
ción. RS 111 

• WINTER OLYMPICS: 

Una cuidada simulación de 
las más importantes prue- 
bas olímpicas de los juegos 
de invierno. RS 109 

• IMPORTACION: 

-AUNE ADOR DE CABEZAS 
GS 102 

¡i APARICION 
INMEDIATA!! 
EUROPEAN 
GAMES. 



DISTRIBUIDO POR: 

DISCOVEFtf 
informatic 

Arco Iris, 75 
T. 256 49 08-09 
08032-BARCELONA 




Consiste en una variante del poker 
descubierto con 7 cartas, que 
podemos jugar contra uno, dos o tres 
jugadores. El ordenador hace de 
árbrito, y nos indicará cada una de 
las jugadas que podemos realizar, 
tales como pasar, plantarse, apostar, 
envidar y subir. 
La partida se desarrolla en un 
ambiente de tensión e intriga ya que 
el juego es con dos cartas cubiertas y 
el resto descubierto, de forma que 
cada uno de los jugadores deberá 
tratar de adivinar el juego de los 
demás por sus cartas y su 
comportamiento (¡suponiendo que 
no vayan de farol, claro!). 
El ordenador analizará nuestro juego 
y se encargará también de guiar el 
comportamiento de los otros tres 
jugadores como si fuesen rivales 
entre sí, lográndose un sorprendente 
efecto de realismo y emoción. 



J 



DATOS GENERALES 

TITULO Samantha Fox. Strip-Poker 
FABRICANTE Martech 

CLASE DE PROGRAMA 

Juego 

FORMATO Cassette 



CALIFICACION (Sobre 10 ptos.) 


ORIGINALIDAD 


8 


INTERES 


9 


GRAFICOS 


8 


COLOR 


7 


SONIDO 


7 


TOTAL 


39 




El nivel de habilidad aunque se ha 
dotado al programa, y la capacidad 
de análisis de jugadas y de 
comportamientos es sorprendente, lo 
que indica que se han seguido 
técnicas de inteligencia artificial en 
su desarrollo. No es fácil ganar a 
Sid, Pat y Joe así que ¡paciencia y 
cuidado con perderlo todo en la 
partida! 



★ ★★★★★★★★★★★★★★★★★★★★★★★★i*** 




¡SUPEROFERTAI 

DATA BECKER 



Y LE 

OBSEQUIAMOS 
UNA CAMISETA 
DATA BECKER 



MSX 

PARA 
PRINCIPIANTES 




MSX 

Consejos y 
Trucos 



MI TALLA ES 

□ MEDIANA 

□ GRANDE 



DATA BECKER 

Ferré Moret S.A.-c/. Córcega, 299 - 08008 BARCELONA 
Telf : (93) 217 62 38 - 217 69 01 - 218 02 93 



ENVIEN OFERTA 
4 LIBROS □ 



CONTRA REEMBOLSO □ 
ADJUNTO CHEQUE □ 



NOMBRE .... 
DIRECCION 



POBLACION 



PORTES E IVA INCLUIDOS 



BUSCANDO LA SALA 
CENTRAL 



La malvada computadora nos tiene 
atrapados dentro de sus circuitos. 
Nuestra única salvación es llegar a (a 
sala central y destruir su control 
principal con nuestros disparos de 
energía. 

Pero antes tendremos que superar las 
pruebas de las motos de luz, de los 
tanques amenazadores y del viaje 
fantástico por un conductor eléctrico. 
En la primera de ellas, tendremos 
que conseguir que la moto que guía 
choque contra su propia estela 
luminosa. En la segunda, tendremos 
que guiar nuestro tanque por un 
complicado laberinto, para destruir 
los tanques que ella controla. En la 



Los electrones no son ningún 
problema, pero si chocan muchos 
protones contra nuestra nave, debido 
a su mayor masa, acabarán 
destruyéndola. 

Al llegar a la sala central de la 





tercera viajaremos con nuestra 
micronave por un conductor 
eléctrico, viendo los electrones y los 
protones, que chocarán contra 
nosotros. 



computadora tendremos que esquivar 
los relámpagos luminosos que nos 
lance, y a la menor oportunidad 
destruir su módulo central para 
alcanzar nuestra libertad y el mundo 



DATOS GENERALES 


TITULO Drome 




FABRICANTE The Bytebusters 




CLASE DE PROGRAMA 




Juego 




FORMATO Cassette 








CALIFICACION (Sobre 10 ptos ) 


ORIGINALIDAD 


9 


INTERES 


9 


GRAFICOS 


8 


COLOR 


8 


SONIDO 


7 


TOTAL 


41 




exterior. 

No es una aventura, son cuatro en 
un juego. La animación y el color 
son estupendos, seguro que pasáis 
ratos muy divertidos con él. 



★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 



RESCATE EN EL MAR DEL NORTE 



Una terrible tormenta se ha 
desencadenado en el Mar del Norte. 
La plataforma petrolífera está en 
peligro. Algunos hombres, sin poder 
resistir el embate de las olas, han 
caído al agua, y corren grave peligro 
de ahogarse. 

La alarma general suena. Todos los 
pilotos de los helicópteros de rescate 



deben alzar el vuelo, a la búsqueda 
de los hombres perdidos., lo antes 
posible. 

No va a ser tarea fácil, pues la 
tormenta es muy grande, el mar está 
embravecido y levanta gigantescas 
olas que amenazan con atrapar 
nuestro helicóptero. Además las 
tuertas rachas de viento hacen 



peligrar la estabilidad de nuestro 
helicóptero. 

Para volar, disponemos de un 
avanzado cuadro de mandos y de la 
ayuda de nuestro super-computador 
de abordo, que hablará con nosotros, 
ayudándonos en caso necesario. 
Hay que darse prisa pues, si llega la 
noche, perderemos totalmente la 



INPUT 61 





DATOS GENERALES 

TITULO North Sea Helicopter 
FABRICANTE Aacksoft 

CLASE DE PROGRAMA 

Rescate aéreo 

FORMATO Cassette 



visibilidad para rescatar a los 
hombres perdidos y no tendremos 
más guía que el sensor de 
infrarrojos. 

Es un estupendo simulador de vuelo 
de helicóptero, tan real, que se 
maneja exactamente como los 
helicópteros de verdad, y hay que 
emplear todos los trucos que los 
pilotos experimentados utilizan. Por 





si nosotros, como es lo más probable 
no lo sabemos, en las instrucciones 
del juego vienen unas buenas 
nociones del manejo y 
funcionamiento de estos aparatos. 
Hay que destacar el sintetizador de 
voz incorporado, que permite al 
ordenador de la nave ayudarnos 
indicándonos, por ejemplo, cuando 
leñemos un hombre bajo nosotros. 



★ ★★★★★★★★★★★★★★★★★★★★★★★★★■A-* 



EL HOMBRE MURCIELAGO 



Cuando juegues con Batman no 
podrás evitar esa sensación de haber 
jugado a algo parecido en alguna 
parle... y será cierto, pues Katman 



sigue el esquema de muchos juegos 
ya aparecidos en el mercado, en los 
cuales el héroe de la aventura tiene 
que moverse por un laberinto 



tridimensional de habitaciones hasta 
encontrar la forma de salir. 
En este caso, el famoso superhéroe 
se encuentra perdido en un 



DATOS GENERALES 

TITULO Batman 
FABRICANTE Ocean 

CLASE DE PROGRAMA 

Juego 

FORMATO Cassette 



CALIFICACION (Sobre 10 ptos.: 



ORIGINALIDAD 

INTERES 

GRAFICOS 

COLOR 

SONIDO 

TOTAL 



6 
8 
9 
7 
7 

37 
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tenebroso castillo. Las fuerzas del 
mal, han destrozado su nave 
Batcsaft. y han escondido cada una 
de las partes en una habitación. 
El castillo está repleto de horribles 
criaturas malignas: hombres lobo, 
robots aniquiladores, perros 
monstruosos y muchos horrores más, 
que tratarán de destruir al 
superhéroe y evitar así que 




reconstruya su nave para poder 
escapar. 

Además Batman no puede confiar en 
nada, pues zonas que parecen 
seguras pueden esconder trampas 
terribles. 

Pero no hay que preocuparse. No 
dudamos que con tu ayuda, el 
legendario héroe saldrá airoso de 
todos los peligros que le acechan. 



★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 



EL GUERRERO DE CAMELOT 



Ten cuidado, caballero andante, si 
osas traspasar la barrera que da paso 
a los peligros y aventuras de este 
juego. 




Caballero Andante entregárselas a 
los Guardianes de los Mundos para 
su destrucción. 

Pero para eso tienes que enfrentarte 




con los peligros de cuatro mundos 
distintos: el Bosque, donde vive 
Aznath, el druida, el Lago, morada 
de Kindo, hermano de Neptuno rey 



■ 




w 




En Camelot las fuerzas malignas han 
hecho aparecer cuatro elementos de 
nuestra era, el siglo XX. Estos 
elementos se conocen en Camelot 
como la Voz de Otro Mundo, el 
Espejo de la Sabiduría, el Elixir de 
la Vida y el Fuego que No 
Quema. 

Estos elementos misteriosos están 
perturbando el equilibrio de las 
Fuerzas Mágicas y es tu misión de 



DATOS GENERALES 

TITULO Camelot Warriors 
FABRICANTE Dinamic 

CLASE DE PROGRAMA 

Juego 

FORMATO Cassette 



CALIFICACION (Sobre 10 ptos.) 


ORIGINALIDAD 


8 


INTERES 


8 


GRAFICOS 


9 


COLOR 


9 


SONIDO 


7 


TOTAL 


41 



del lago, las terribles grutas, donde 
habita el dragón Azornic. señor de 
los mundos subterráneos, y por 
ultimo el castillo de Camelot, y la 
Corte del Rey Arturo. Allí se 
encuentra la solución 
final. 

Es seguro que con Camelot Warriors 

tenemos muchas horas de diversión 
aseguradas. Los efectos gráficos son 
excelentes, así como la originalidad 
de los efectos y el movimiento. A 
través de todos los mundos por los 
que nuestro caballero andante va a 
emprender su aventura encontramos 
llamativas plantas, formas y colores 
insospechados... y también grandes 
peligros, contra los cuales sólo 
tenemos nuestra espada y nuestra 
destreza. ¡Atrévete y lánzate a la 
aventura! 

★★★★★★★★★★ 
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Vendo HB-55P junto con ampliación 
memoria 16K. Precio a convenir. Lla- 
mar a: 

Víctor 
Tel. 26 14 29 
Murcia 



Vendo/Cambio juegos MSX poseo en- 
tre otros: Cadoo, Ninja, Karate, Zaxxon, 
Hero... Interesados llamar o escribir a: 
Javier Rosendo López 
Avda. Concha Espina s/n 
Tel. (942) 70 05 16 
39500 Cabezón de la Sal 
Cantabria 



Intercambio los cartuchos de Konami: 
Soccer, Tenis y Antartic Adventure po- 
seo hasta 30 juegos y cartuchos. Llamar 

a: 

Juan Manuel 
Tel. (954) 66 39 80 (de 19 a 22 h.) 



Desearía contactar con usuarios del 
MSX para poder intercambiar progra- 
mas (Alien 8, Night Shade, Gunfrigt, 
Zaxxon, Night Lore, etc). 

Angel Ramón Pérez Corzo 
García Lo rea s/n 
Tel. (924) 34 21 28 (tardes desde las 8) 
Arroyo de San Servan 
Badajoz 



Intercambio programas comerciales 
MSX en cinta o disco de 3.5, primeros 
títulos del mercado. 

Iñaki Fernández Izquierdo 
Zamakoa 7, 5 o dcha. 

Tel. (94) 456 33 72 
Galdácano (Vizcaya) 



Cambio programas MSX, únicamente 
con usuarios de mi localidad. Poseo 
Manic Míner, Jet Set Willy, Sorcery, Su- 
perbowl, Road Fighter (en cinta), etc. 
Llamar o escribir a: 

Pablo Pardo Márquez 
1 o de Mayo, portería 2, 3 o 2 a 
Tel. 870 91 45 
Granollers (Barcelona) 



EL ZOCO 

Cambio un órgano Casio PT-1. 10 ho- 
ras de uso y garantía oficial de un año 
por el Boxing o el Golf de Konami o 
vendo por 4.000 ptas. 

Juan Carlos Sánchez 
lllescas, 119, 1°C 
Tel. 718 15 89 
28024 Madrid 



Compro cartucho de expansión de me- 
moria 64K. Precio a convenir. 

Xímo Martínez Rojo 
Av. Horchata, 31, 6 
Tel. (96) 362 71 39 
Alboraya (Valencia) 



Cambio Ratón MSX y programa Chee- 
se por 150 juegos. También lo compra- 
ría. 

Juan Manuel 
Tel. (954) 66 39 80 
Sevilla 



Desearía intercambiar programas MSX. 
Poseo: Knight Lore, Zaxxon, Yie ar 
Kung-Fu II, Ríver Raid, Bounder, Jet Set 
Willy II, Chiller, Slapsher (Hockey hielo) 
etc... Me interesan: Profanatíon, The 
Way of the tiger, Hero, Gunfright o Jack 
the Nipper. Llamad a: 
Tel. (93) 379 20 86 (a partir de las 6 de 

la tarde) 



Vendo Mitsubishi 80K modelo ML-FX2 
con 4 programas incorporados en el or- 
denador: Base de Datos, Procesador de 
Textos, Cálculo electrónico, Creación 
de Gráficos, con sus respectivos cables 
y libros en castellano y una cinta de de- 
mostración. Regalo 1 cassette con jue- 
gos de marca. Precio a convenir. Pre- 
guntar por: 

Yon 

Tel. (943) 39 63 36 
San Sebastián 



Deseo cambiar ordenador Mitsubishi 
con 80K RAM y teclado numérico + 2 
manuales en español + cassette espe- 
cial + joystick + revistas y unos 30 jue- 
gos (Hero, Profanation, Sorcery, etc..) 
por Philips, por Hit Bit o por Dynadata, 
pero que tenga la misma memoria. In- 
teresados llamar a: 

Roberto 
Tel. (982) 44 00 10 
(sólo de 9 a 11 de la noche) 



Cambio 4 juegos por uno: Chiller, Spa- 
ce Walk, Misión de Combate y Krypton 
por uno de estos: Hero, Profanation, 
Zakil Wood, Alien 8, o Hiper Rally. Po- 
neros en contacto conmigo: 

Victor Valero Berenguer 
Mayor de Salt, 252, bajos 
Tel. (93) 23 40 38 (excepto lunes y 
domingos) 
19170 Salt (Gerona) 



Vendo ordenador Yashica 64K sistema 
MSX, con monitor Philips fósforo ver- 
de, cassette Philips tipo consola espe- 
cial para ordenador, dos joystícks Sony, 
dos cartuchos, montones de juegos y 
revistas por sólo 80.000 ptas con me- 
nos de tres meses de uso. Más infor- 
mación llamar a: 

Carlos 
Tel. 858 17 31 
Madrid 



Vendo Sony HBF 500 P (MSX II) com- 
pleto, nuevo. Incluidos manuales y Sis- 
tema Operativo (diskette MSX-2). Por 
imposibilidad de envío, solamente a 
tratar en cercanías de mi población. Ur- 
gente. Precio: 130.000 ptas. 

José Luis Basterretxea Barroso 
Iturríbide, 12, 2" dcha. 
Tel. 469 43 63 (llamar de 2 a 4 h.) 

Getxo (Bizkaia) 



Vendo Sony HB-75 P de 80K más libros 
más programas comerciales por 30.000 
ptas. 

Venancio Bídasoro 
Harzubia, 9 
Tel. 81 25 06 (de 3 en adelante) 
Azpeitía (Guipúzcoa) 



Vendo ordenador Hit Bit 55P, amplia- 
ción 16K, 4 cartuchos y 20 juegos por 
40.000 ptas. Interesados llamar a: 

Francisco 

Tel. 10 51 42 (de 9 a 11 de la noche) 

Almería 



Cambio juegos de ordenador, primeros 
títulos y todas clases, o los vendo. Con- 
tactar conmigo en esta dirección y telé- 
fono: 

Jordi Pujolá 
Calle N- a 7, n°23 
Tel. (93) 664 19 71 
Castelldefels 
Barcelona 



Vendo/Cambio cintas de juegos. Ten- 
go Basket-ball, Zaxxon, Minerva III, Po- 
lar Star, y 20 más. También vendo joys- 
tick con 2 disparadores y opción rápi- 
do-normal. Mandar lista: 

Alonso Gómez 
La Quintana, 4 
Santpeda (Barcelona) 



Cambio 35 juegos comerciales, 15 de 
ellos de Konami por cartuchos de jue- 
go, interesados mandar el nombre del 
cartucho. Escribir a: 

Juan José Ritoré 
García de Paredes, 19 
Tel. 23 76 87 
Badajoz 



Intercambio todo tipo de programas 
MSX con chicos y chicas de toda Espa- 
ña. Poseo más de 50 títulos. 
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Vicente Villar Elizondo 
La Paz, 34, 2°D 
Baracaldo (Vizcaya) 



Intercambio juegos MSX. Poseo: Jack 
the Nipper, Gunfright, Knight Lore, 
Hero, Ghostbusters y muchos más. 

Ladislao Banfalvi 
Plaza Mayor, 23 
Tel. (96b) 85 26 75 
Benidorm (Alicante) 



Cambio ampliación 32K + 6.000 por 
ampliación 64 K en buen estado. 

Daniel Moreno Garriga 
General Prim, 7, 3° 2" 
Tel. (93) 873 63 28 ó 873 63 90 
Manresa (Barcelona) 



Vendo ampliación de 16K Sony 
HBM-16 por 3.500 ptas. en perfecto es- 
tado. Preguntar por: 

José Ignacio 
Tel. (94) 449 46 85 



Necesito manual o copia en castellano 
de impresora Seikosha GP-500 AS. 
Acepto donación de ordenador o im- 
presora que no uses por cualquier mo- 
tivo. Abono partes. 

Julián Seguen 
Serradilla, 28 
Tel. 705 98 24 
28044 Madrid 



Intercambio programas e información 
en MSX. Dispongo de los mejores: 
Gunfright, Knight Lore, Road Fighter, 
Alien 8, Hero... Me interesan sobre todo 
programas de aplicación tales como: 
ensambladores, desensambladores, 
procesadores de texto, base de datos, 
etc. Busco compañero iniciado para 
concurso Sony. Interesados dirigirse a: 



azoco 

Juan Luis Garrido Castro 
Dulcinea, 32 
Tel. 25 14 97 
14014 Córdoba 



Vendo videojuegos Atari, joysticks di- 
versos y 19 cartuchos por sólo 2.500 
ptas. 

Ignacio Pérez Cuadrado 
Tolosa Latour, 4, 6°C 
Cartagena (Murcia) 



Intercambio, vendo, compro juegos en 
cinta de MSX. Tengo entre otros: 
Knight Lore, Night Shade, Hero, River 
Raid, Yier Ar Kung-fu, Boxing, Ghost- 
buster, Profanation, etc. Desearía tener: 
Green Beret, Sorcery, Nodes of Yesod, 
Jack the Nipper, Camelot Warriors, etc. 
Busco copión. 

José Luis García de la Fuente 
Móstoles, 39, 3" Pta. 7 
Tel. (91) 697 54 74 
Fuenlabrada 



Cambio juegos MSX. Tengo Soccer, 
Hyper Rally, Yie ar Kung Fu I y II, Bo- 
xing, etc. Escribir a: 

Antonio Guillamó 
Vicente Gallart, 24, 9 U 
46011 Valencia 



Vendo consola videojuegos Philips con 
14 cartuchos. Regalo juegos de TV Pal- 
son. Todo por sólo 15.000 ptas. 

Ignacio Pérez Cuadrado 
Tolosa Latour, 4, 6°C 
Tel. 50 45 62 
Cartagena (Murcia) 



Deseo contactar para formar Club de 
MSX, para intercambio de ideas, jue- 
gos y programas. 



Jon Masant 
Apartado 7015 
Bilbao 



Cambio y vendo programas MSX, ten- 
go entre otros: Hole in One, Tenis, Sky- 
Jaguar, Yie ar Kung-fu I y II. Escribir a: 
Antonio Muñoz 
Cuenca, bloque N, 2 a 1° 
Monteada i Reíxach (Barcelona) 



Intercambio juegos MSX en cinta (Jet 
Fighter, Chess, 86, Vacuumania, Pyra- 
mid Warp, etc.). A ser posible con per- 
sonas de Madrid. 

Antonio 
Tel. 269 06 47 
Madrid 



Compro ordenador MSX 80K. Si puede 
ser Philips por 30.000 ptas. Interesados 
llamar y dejar teléfono. Yo me pondré 
en contacto. 

Juan Arboix Fajula 
Paseo Valldaura, 150, piso 10, 6' 
Tel. 427 8917 
08031 Barcelona 



Cambio/Vendo programas MSX. Ten- 
go: Road Fighter, Ping-Pong, Knight 
Lore, Hero, etc.. Escribir a: 

Antonio Bellido 
Cuenca, bloque L, 1 o 2 a 
Montacada Reixach (Barcelona) 



Vendo un buen desemsamblador, sólo 
ocupa 6,5 Kbytes. El cambio se hará 
contra reembolso. Precio a convenir. 
Quien quiera comprarlo que escriba a: 

Oscar Saenz Maguregui 
Escultor Francisco Durrio, 3, 8C 
48015 Bilbao 



La redacción de Input 
os desea unas 




FELICES NAVIDADES 



INPUT 65 




LOGO 



Autor: Gallego, Lowy, Mansi- 
lla. Robles 

Editor: Ediciones S.M. 
Páginas: 269 
Precio: N.D. 

Logo es un texto encamina- 
do a familiarizar a los potencia- 
les alumnos con el lenguaje y 
el uso del ordenador a través 
de un lenguaje especialmente 
diseñado para estos fines: el 
LOGO. 

Los objetivos del libro son 
esencialmente didácticos, con 
intención de ser usado en cole- 
gios, escuelas, etc. Por ello uti- 
liza una versión del LOGO en 
castellano, y además se ciñe a 
las primitivas recomendadas 
por el M.E.C. y las comunida- 
des autónomas. 

Todo esto no quiere decir 
que no pueda utilizarse como 
un libro para uso personal. 
Todo lo contrario. La sencillez 
y claridad con la que están ex- 
plicados los conceptos lo hacen 
muy adecuado para la consulta 
y aprendizaje personal. 

Los temas se desarrollan su- 
poniendo que van dirigidos a 
personas sin conocimientos ni 
experiencia en el mundo de los 
ordenadores. Los primeros ca- 
pítulos están dedicados a los 
gráficos LOGO, explicando el 
manejo de la Tortuga (símbolo 
inequívoco de este lenguaje), y 
partiendo de ejemplos muy 
sencillos que se van complican- 
do en capítulos posteriores. 

A continuación se explican 
los procedimientos, con y sin 
paso de parámetros, para que 
el lector o alumno aprenda el 
diseño de sus propias aplicacio- 
nes mediante procedimientos 



simples, que es la idea base de 
la programación estructurada. 

Se pasa a continuación a 
examinar el concepto de recur- 
sividad, o procedimientos que 
se llaman a sí mismos, expli- 
cando como puede hacerse uso 
de este concepto para resolver 
de forma más simple algunos 
problemas. Se aplican seguida- 
mente los conceptos de proce- 
dimiento y de recursividad al 
manejo de listas, entendidas 
éstas como un conjunto de ele- 
mentos que pueden ser carac- 
teres, números, palabras u 
otras listas a su vez. 

Por último, el libro termina 
con tres interesantes capítulos 
dedicados a la creación de grá- 
ficos sobre ejes cartesianos, a 
una profundización sobre el 
manejo de los gráficos-tortuga 
v a la creación de música. 




MSX, APLICACIONES 
PARA LA CASA Y LOS 
PEQUEÑOS NEGOCIOS 



Autor: J. Minguella 
Editor: Noray S.A. 
Páginas: 63 
Precio: N.D. 

Aparece en este libro un 
compendio de 15 programas 
desarrollados por el autor para 
nuestro ordenador MSX. Los 
temas sobre los que tratan los 
programas son de naturaleza 
diversa. Sin embargo, no hay 
ninguno de ellos que pueda ca- 
lificarse realmente de novedo- 
so. 

Las aplicaciones están orien- 
tadas sobre todo a resolver con 
nuestro ordenador MSX los pe- 
queños problemas domésticos 



y personales. Encontramos así 
un programa de gasto de com- 
bustible, un programa para en- 
frentarnos con el temido IVA, 
otro para llevar las cuentas 
bancarias, una contabilidad do- 
méstica y dos agendas, una dia- 
ria para recordar lo que tene- 
mos que hacer y otra telefóni- 
ca. 

Para tentar a la suerte tene- 
mos un programa de quinielas 
y otro de lotería primitiva. 

Dentro de la sencillez de las 
aplicaciones presentadas se ha 
intentado que la presentación 
de los programas en pantalla 
sea uniforme y agradable. 
También se ha uniformizado la 
entrada de datos. 

Además se ha procurado, 
dentro de las limitaciones que 
el BASIC impone, que los pro- 
gramas tengan una estructura 
que sea lo más modular posi- 
ble. Para ello los programas es- 
tán divididos en un bloque de 
inicialización, un segundo blo- 
que en el que se presenta el 
menú de opciones, y se hace la 
entrada de los datos y la com- 
probación de los mismos y un 
conjunto de bloques, que va- 
rían según las utilidades del 
programa (lectura y grabación 
de datos en cinta o en disco, 
presentación de resultados en 
pantalla o impresora, etc.) 

Al principio se hace un bre- 
ve comentario sobre el progra- 
ma que se lista a continuación. 
Este comentario no explica la 
realización del programa, ni da 
instrucciones sobre su manejo, 
sino que no pasa de ser un bre- 
ve comentario, a veces huma- 
nístico, sobre su utilidad. 



MSX: INTRODUCCION 

PRACTICA AL 
SIMULADOR DE VUELO 



Autor: M. Medel 
Editor: Peopleware 
Páginas: 179 
Precio: N.D. 

Este libro es la segunda par- 
te de una obra del mismo au- 
tor, titulada DESPEGA CON 
TU MSX. En ella se nos ense- 
ñaban los comandos funda- 
mentales del BASIC MSX, a la 
vez que se desarrollaba el dise- 
ño y puesta en vuelo de la nave 



espacial Columbia. Al final de 
aquella obra se dejaba para un 
libro posterior el diseño del 
cuadro de mandos interno y la 
creación de un pequeño simu- 
lador de vuelo de la nave. 

Pues bien, cumpliendo con 
lo prometido, ya tenemos esa 
segunda parte en el mercado. 
La forma de desarrollar el con- 
tenido es muy parecida a la de 
la primera parte. Es decir, se 
divide el problema en bloques 
funcionales y se va tratando 
cada uno de ellos por separa- 
do. Sin embargo, hay una dife- 
rencia fundamental con respec- 
to al libro anterior, y es que ya 
no se explican con detalle los 
comandos utilizados, más bien 
se hace hincapié en explicar la 
forma de hacer las cosas, las 
expresiones matemáticas que 
se utilizan y las bases físicas en 
que se fundamentan. 

Incluso se dan también inte- 
resantes explicaciones sobre el 
diseño y funcionamiento de la 
nave Columbia, su forma de 
maniobrar y el cometido de 
cada uno de los instrumentos 
del cuadro de mandos. Todo 
ello se explica de forma amena 
y fácil de entender para cual- 
quiera que posea unas nocio- 
nes elementales del BASIC 
MSX. Siguiendo paso a paso 
los capítulos del libro dispon- 
dremos además de un estupen- 
do simulador de vuelo con el 
que pasar ratos muy agradables 
y con la satisfación adicional de 
haberlo construido nosotros 
mismos paso a paso. Este simu- 
lador es muy completo, y tiene 
en cuenta efectos tales como la 
dependencia de la resistencia 
del aire con la altitud, las coor- 
denadas geográficas (latitud y 
longitud), etc. 




66 INPUT 




DISTRIBUIDOR EXCLUSIVO PARA ESPAÑA ERBE SOFTWARE C|. STA ENGRACIA. 17 28010 MADRID. TFNO. (91) 447 34 10 
DELEGACION BARCELONA. AVDA. MISTRAL. N° 10. TFNO (93) 432 07 31 



EL MAS OCUPADO DE LA CASA. 



MSX DE PHILIPS. 




Porque nadie puede resistirse a la tentación del 
MSX de Philips. A sus divertidos juegos de aventuras. 
A sus entretenidos programas educativos. O a los 
de oficina, como el "Home office". Capaz de hacer 
estadísticas, estudio de cuentas, contabilidad, etc. 



Y los programas específicos para hacer más fácil el 
trabajo al ama de casa. O al estudiante. Además, posee 
una amplísima gama de periféricos: impresoras, 
monitores, ratón, etc. Disfrute con el MSX de Philips. 
Siempre que no esté ocupado. 



PHILIPS 




Philips integra su futuro. 



PHILIPS 



Servicio de información al cliente: tels. (91) 413 21 61 - 413 22 46. 



